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FOREWORD 


The Electric and Hybrid Vehicle (EHV) Program was established 
in DOE in response to the Electric and Hybrid Vehicle Research, De- 
velopment, and Demonstration Act of 1976. Responsibility for che 
EHV Program resides in the Office of Electric and Hybrid Vehicle 
Systems of DOE. The Near-Term Hybrid Vehicle (NTHV) Program is an 
element of the EHV Program. DOE has assigned procurement and man- 
agement responsibility for the Near-Term Hybrid Vehicle Program to 
JPL • 


The overall objective of the DOE EHV Program is to promote the 
development of electric and hybrid vehicle technologies and to dem- 
onstrate the validity of these systems as transportation options 
which are less dependent on petroleum resources. 

As part of the NTHV Program, General Electric and its subcon- 
tractors have completed studies leading to the Preliminary Design 
of a hybrid passenger vehicle which is projected to have the maxi- 
mum potential for reducing petroleum consumption in the near term 
(commencing in 1985) . This work has been done under JPL Contract 
955190, Modification 3, Phase I of the Near-Term Hybrid Vehicle 
Program. 

This volume is part of Deliverable Item 7 , Final Report, of 
the Phase I studies. In accordance with Data Requirement Descrip- 
tion 7 of the Contract, the following documents are submitted as 
appendices: 

APPENDIX A is the Mission Analysis and Performance Specifica - 

Studies Report that constitutes Deliverable Item 1 and reports 
on the work of Task 1. 

APPENDIX B is a three-volume set that constitutes Deliverable 
Item 2 and reports on the work of Task 2. The three volumes are: 

• Volume I — Design Trade-Off Studies Report 

• Volume II — Supplement to Design Trade-Off Studies 

Report , Volume I 

® Volume III — Computer Program Listings . 

APPENDIX C is the Preliminary Design Data Package that consti- 
tutes Deliverable Item 3 and reports on the work of Task 3. 

APPENDIX D is the Sensitivity Analysis Report that constitutes 
Deliverable Item 8 and reports on Task 4. 

The three classifications - Appendix, Deliverable Item, and 
Task number - may be used interchangeably in these documents. The 
interrelationship is tabulated below: 
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Appendix 
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Task 

1 


Deliverable Title 

I tem Task 

Mission Analysis and p erf°i.-nan c e 
Specification Studies Report 

Voi. I - Design Trade-Off Studies 
Report. 

Vol. II _ Supplement to Design 
Trade-Off Studies Report 

Vol. HI “ Computer Program 
Listings 

Preliminary Design Data Package 
Sensitivity Analysis Report 

This is Volume II I ^^°™P^ t ®^sign^Program t ^HYVELO) and" ‘the 
Hybrid S vehicle 6 Simulation Program (HVVEC) . 
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Section 1 

INTRODUCTION 


1.1 INTRODUCTION 

This is Volume III, Computer P rogram Jos^naS/ of ?' 

Design Trade-Off Studies Report (Deliverable Item 2) . It repo. t 
on work done on Task 2 and is part of Deliverable Item 7, Fina l 
Reoort which is the summary report of a series which document 
resul ts of Phase I of the Near-Term Hybrid Vehicle Program. This 
phase of the program was a study leading to the preliminary design 
of a five-oassenqer hybrid vehicle utilizing two energy sources 
*{electricity S and^gasoline/diesel fuel) to minimize petroleum usage 
on a fleet basis. 

The oroaram is sponsored by the U.S. Department of Energy 
(DOE) and P S! SliforSia Institute of Technology, Jet Propulsion 
Laboratory (JPL) . Responsibility for this program at DOE res - 
in the Office of Electric and Hybrid Vehicle ^sterns. Work o 
this Phase I portion of the program was done by General Electric 
Corporate Research and Development and its subcontractors under 
JPL Contract 955190. 

This volume contains a description and listing of two computer 
programs : 

• Hybrid Vehicle Design Program (HYVELD) 

• Hybrid Vehicle Emulation Program (HYVEC) 

Both of the programs are modifications and extensions of similar 
programs developed at JPL as part of the Electric and ^rid Ve 

hicle System Research and Development Project, o^Tasks 

tential Assessment, and Hybrid Vehicle System Evaluation Task . 
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Section 2 

HYBRID VEHICLE DESIGN PROGRAM (HYVELD) 


2.1 HYVELD DESCRIPTION 

This section contains a description and listing of the HYVELD 
computer program ti at was used during the Phase I Contract to study 
various vehicle designs. 

The computer program (HYVELD) was developed as part or the 
Design Trade-Off Studies (Task 2) effort. It was used extensively 
to perform the first step in the screening of the various power 
train configurations and component combinations. In addition, it 
was used as the primary tool in the Sensitivity Analysis Studies 
(Task 4). A complete listing of the program is given in Section 2 . 2 . 

As indicated in Figure 2.1-1, the HYVELD calculation procedure 
consists of three parts: (1) Vehicle Synthesis, (2) Economics, (3) 

Energy-Use Compeer isons. In the Vehicle Synthesis part of the pro- 
qram, the vehicle weight and cost, and the size and cost of the 
various power train components, are calculated for specified power 
train configurations and component characteristics. The passenger 
carrying capacity of the vehicle is set by inputting the appropriate 
baseline chassis weight, and the use-pattern is specified in terms 
of annual miles traveled and the fraction of those miles in urban 
driving. The vehicle performance is given in terms of power-to- 
weight ratio and electric range. Vehicle synthesis calculations 
are done sequentially for all-electric, series hybrids and parallel 
hybrids with and without secondary energy storage. Calculations are 
done for a single engine type and a number of battery types (e.g., 
lead-acid, Ni-Zn, Ni-Fe, Li-S) in each run. 

The vehicle weight and cost for each power train configuration 
and component combination is built up from the Reference ICE Vehicle 
by subtracting the weight and cost of the conventional power _rain 
and addincf the weight and cost of the hybrid/electric driveline 
needed to meet the specified vehicle performance. The effect on 
the vehicle weight of the added power train Weight is accounted for 
by using a weight propagation factor. 

Economics calculations are made for each of the power train 
combinations treated in the Vehicle Synthesis section of HYVELD. 

The objectives of the economics calculations are to determine the 
ownership cost (C/mi) , breakeven gasoline price ($/gal) , and net 
dollars saved or lost ($/yr) for specified unit energy costs, eco- 
nomic conditions (interest, inflation, and discount rates) , vehicle 
life, and maintenance costs (C/mi) . The Reference ICE Vehicle is 
characterized in terms of its initial cost, fuel economy, life, 
and maintenance costs. The ownership cost (C/mi) of the Reference 
ICE Vehicle is calculated for comparison with that of the hybrid/ 
electric vehicles. 
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schematic of the Hybrid Vehicle Design (HYVELO) Calculation Procedure 
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Energy-use calculations are also made for each of the. power 
train combinations. Energy use (electricity and fuel) in calcu- 
fated separately for urban and highway driving. The reoulto are 
expressed both in terms of energy used per mile traveled and en- 
ergy used per year. The fuel and energy used by the Reference 
ICE Vehicle is also calculated and compared with corresponding 
values for the hybrid/electric vehicles. Fuel and energy savings 
are then determined for each power train combination. 
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2.2 HYVEI 0 LISTING 


! Of- 

.?(;(.»■•«'» A|.L WUITI STATE.Ml MTS Mf f [tt TO 1,0 >#|fc INSTEAD 

or LO #6 

/.O', 

f,dC «•*•» A|,t, Hl : . AO STATEMENTS Rl FI R TO LU #15 INSTEAD 
6(l( *•»»» 01 | II #•< 


70C 

HOC 

90C 

100 

no 

1 i»0 

130 

1 40 
150 
160 
170 
1BC 
100 
200 
210 
220 

2 TO 
2 AO 
250 
260 
2 70 
280 
290 
300 
310 
320 


STORAuL SYS 1 E M 
SLX M.IM III fiOri2f.UO 
><l Au KPC.PIMG.CDTO 

INTEGER |PTQ.NSY,NnC.|PSU*NYL«NSYS«Nr»CS 
IflTl.dCR |Um 

m.AL IE .L*C . ICF .MCMO.F'.IFHV.NLDF »NSCV 
HI AL MPGU.ITGC.Il 

HI Al ROE I’S.FOSPP.RnPPS.ROlPSL »R()PLL ,R0FS.RM05 S.BDPKWH.CP*Cl«YLI 
in.AL KP.NPGH.R »YP,UP,RI 

m Al OR . IR.TXiKPR.SWC NT . SWNG .SW'CVT , SPCCVT 
1 111 rota TYPE, SYS .TYPE SE.SYS5I 

01 ML MSI UN GAMMA (6) *FDl (61 .ALPHAI61 

DIMENSION ROC PS ( S 1 «R()SPP(5) .K0PPS(61 .HOEPSLtSI .K0PLLI51 .K0ES<6> 
01 Ml. US I ON RHOSS (5) «HDPKWIi(6> «CP (6) «CL ( 0 1 . YL 1 ( 6 1 »EE ( 5 ) »fSSV (51 
0 1 Mf US | Oil PI (61 «FM(£ (61 ,FSS(6> 

U I Ml 'IS 1 Of 0 1 F((V ( 6 1 

NAMLlIST / in/sys. type«m>.f.tad,wi .cw.pw.kpc. 

6 Si'C'IK , SPCTlHi « TOP » SEXU. SCXH. EIPH I ill PHI «FUl .USFCU.BSFCH. 

6 SPY Vi.Si'UiE N » SPCCNT , SPCTRN .DPKWME ,fcTAM,MHFI .SWENG.NYL. 

6 SWT'-’fl, AWL, CiPO.MP(,U»MPC»fM« CHEF .MPC.H . I PTO .NSY «UHC . 1 P5U . 

6 EUEPS, POSPP, RUPPS ♦HOrPSL«ROE’LL .HOf.S .RHOSS .BPPKWH »CP ,CL • YLI «EE» 
6 FHI; » F Oi ,1-SS.YMl ,DP. NSYS.NUCS.TYPF SC. SYSSt .RI .OF .GK.CM, 

6 OR . IR.NS.I'F . TX *KPR » SWC VT » SPCCVT .SWCNT . SWMG . SWGEN 
6 ,FM(_OI «E> APP.CCON.IF.NSCV.VICF.NLDF .ST.DMUP.CCV 
6 ,M|I HV »l.R<. » I CF .MC^O *E I OC .U'3CC *C>SV 


3 30C 

3<,0C«#*» CO’VO'l PLICE.S ARE SET UP FOR USE IN THf SUBROUTINES 
360C*«»* SEHYPH, Lf-f./P, PRIORY, pseCoy, local 

360 C»«<*« COMMON "INI TV HLFLHS TO VAR 1 AUL E S FROM INPUT DEVICE 

370 c *»** co M, ':r; ” i n i tv refirs to variates initializer in main 

3 H''C»»*« CU MV 0“1 "INI IS " REFERS TO VAR*A"ikS INITIALIZED IN SUBROUTINES 


390C 

4 00 COMMON / IN’ T V/ b YS.T Yl E »> P.ETAD.WI .K .CW.PW.KPC. 

610 6 SPCUt ,TMP,Sf XU.SEXH,! FPHJ . F FPU I .1 UI .BSFCU ,»SECH , 

620 6 SPC'-G.Sf’CGl.N.SPCCnT.SPCTPfl.Dl'KWHI .E TAM .IMF I .SWENG.NYL. 

6 30 6 SMT'iN . Air.'L .Gd I .'VGU .MPGC P .CUTE , MPC.lt • 1 PTO »NSY »NPC * I PSU* 

6 60 6 POEPS.ROSPI' .l OPPS.POEPbl .POPLi. »Pi'f. S .RHOSS .BDPKWH .CP »CL »YLI *Et« 

6S0 6 Fill .ICO . r SS » YMI .DP » NSY 5 .NBC S.IYPfSE.SYSSL.Rl .GF .GK .CM » 

6 60 6 DR, lR.t.S.fT .TX.KI'R.SWCVT .SPCCVT. SWCNT , SWMG, SWGEN 

670 6 .F'MtDI , L I APP ,ECON ♦ l F »NSC.'V . V ICF .NLPF.ST »DMUP »CCV 

600 6 ,M|rHV.LRC,ICF,PCMO,r!r,C.UUCC,BSV 


69IIC 

500 

510 

62'IC 

5 30C 

5 6 Of. 

550C 

S60C 

5 70C 

60OC 

590C 

600C 


common yini tm/si.x,wvo.etae.u»ctaeu,v.'dto,gamma.ymp,alpha 

COMMON /INI T S/CDTO.DTMG.StXHCV.OPCTG .TACCV » AGCCV »EFPU .EFPH.FU.YM 

END OF REAL/ INTEGLR/DIMENSIUN/COMMON STUFF 


SYS- 1 PlIPL STORAGE-PRIMARY 

SYS = ? PURL STORAGE -PR IMARY..SFCONDARY 

sys= 3 sums hybrid primary-secondary 
SYS=6 PARALLEL HYBRID PRIMARY ONLY 
5Y5 S 5 PARALLEL HYBRID PRIMARY-SECONDARY 
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610C Sv Sa/> SPRITS HYHR I()"PP I MARY ONLY 
A?OC RIOrRANl.L Or ALL ELECTRIC V/fll I'RIUII 

63DC rr-nu'^i.r r kronen t 

6A0C 

a'.oc nscv n urr.riMi »Jf tnnvfNTinriAi. vehicle 

fcftOC CCV a CUM (if CONVENTIONAL VEHICLE lt| 

b7n(- VICE a vEHJCl.t 1MPROVI MENT COST FACTOR 

AltOC MERE a DEPRECIATION FACTOR 

690C ST a SALES IAX 

700G DMIJP c DI ALER MARKUP 

7 1 OC UOCC a BATTERY CHARGER COST (S/KWH) 

??oc 

7 30 CALL E ILL •» 

7 AO HE,AO< l‘.,|0) 

750 If (IPTO.CU.O)C.O TO 50Q 

7*»0 I E ( l I’TD.HJ. 1 1 GO TO 100 

770C 

7H0C **»«»*«« DESIGN PARAMETERS •#****#»*** 

790C 

800 100 WRIT! <16.1101 

810 no F 0 R-IAT( 2 X.'TAI’LC AJDESION PARAMETERS FOR DIFF# SIZE VEHICLES*! 

820 WRITE <16.1201 

830 120 FORMAT <?0X , •VEHICLE TYPE • > 

8 AO WRITE! 16. 130) 

8 S0 130 FORMAT <5X* ‘DESIGN PARAMETER •. 30X ♦ ‘01 FF . SIZE*) 


860 WPITF ( 16.1A0)CW 

870 1 AO F0R*1AT(?X. ‘CHASSIS WE IGHT <L6S) • .T50.F 10. 3) 

880 wR I TE ( 1 6 » 1 50 > PW 

890 ) 50 FORMAT I2X. ‘PAYLOAD WFIGHT (LBS) • .T50.F10.3) 

900 160 Format <2X« ‘POWER to weight RATIOMIELECTRIC DRIVE) %!-u?F’l0.3) 

910 Wi< l TE ( 1 6 « 1 70) KP 

920 170 Format I2X. ‘POWER TO WEIGHT RATIO*. T50. 

930 fc F10. 3) 

9a0 WRITE < 16. 1801W1 

950 180 F0RMAT<2X.*HASt LOAOED VEHICLE (LOS) ‘.T50.F10.31 

960 190 Format <2X. ‘1'OWI.RTCAIN WEIGHT ILBS) :CONVENTIONAL VEHICLE* *T50» 

970 t F 10. 3 1 

980 WRITE < 16..' noiRII 1) 

990 200 F0HMAT(2X.‘RARC,E<DESIGN)-M1LES:PURE STORAGE* .T50.F10.3) 

1000 WRITE! 16.?10)KI (3) 

1010 210 FORMAT <2X,*l!AMGC<l)ESIGN>-MlLES:HYnRID CITY DRIVING* .T50.F10. 3) 

1020 WRITE! 16*220) ETAD 

1030 220 FORMAT!?*, ‘ELI CTRIC DRIVELINE EFFICIENCY* .T50.F10.3) 

1 0 AO l/R I TE ( 16 .225 ) F T AM 

1050 225 rORMAT 12*. ‘MECHANICAL DRIVE EFFICIENCY* .T50.F10.3) 

1060 WR t TE < 16 *2 30 ) ETAPP 

1070 230 F0RMAT(2X,‘ POWER PLANT EFFEC1ENCY* .T50.F10.3) 

1080C NSY= SYSTLI' CODE 


1100C 
11 IOC 
1120C 
1 1 30C 
UAOC 
1 150C 
1160C 
1170 


HSY= 6 ALLoSYSTEVS 
HDC= 5 ALL5DATTFRY CODE 
I RTO= 0 RESULT ONLY 

IF’TO= 1 RLSULTS ♦ VEHICLE DESIGN PARAMETER 
NYL =0 IF INPUT BATTERY YEARS tO BE USED 
NYL =1 IF BATTERY LIFE IS TO BE CALCULATED FOR CYCLES 
IPSU= 0 STORAGE UNIT TABLE AS USED IN CALCULATION INO TABLE) 
IPSU= 1 PRINT TABLE 
WRI TE 1 16.2A01 AWC 
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10 70 

iokjc 

1 090C 

nooc 
1 110 c 

1 120C 
1130C 
U4QC 
1 1 50C 
1160C 
1170 

11 HO 
1190 
1200 


230 FORMAT ( 2 * • 'POWER 
MOV" SYSTEM CODE 


PLANT EFFEC1ENCY* , TOO ,F 1 0„ 3> 


ALEoSYSTfMS 
ALL'jHATTFRY CODE 
RESULT ONLY 

INSULTS * VEHICLE DESIGN PARAMETER 
IF INPUT BATTERY YEARS TO BE USED 
IF BATTERY LIFE IS TO BE CALCULATED FOR CYCLES 
STORAGE UNIT TABLE AS USED IN CALCULATION (NO TABLE) 
PRINT TABLE 

WRITE ( 16*240) AWC „ . _ . 

240 FORMAT (2X, 'COST OF ADDITIONAL CHASSIS WEIGHT (S/LB) ,T50,F10.3> 
WRI E ( 16 * 250 ) K 

250 FORMAT (2X, ‘WEIGHT PROPAGATION FACTOR ' .T50 , l 10.3) 


MS Vo f 
NliC = ■ 
IPTD = 
IPTOs 
NYL = 
NYL = 
IPSJE 
IPSjs 


1210 
1220 
1250 
1240 
1250 
1260 
1270 
1200 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1300 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1 c 60 
1570 
1500 
1590 
1600 
1610 
1620 
16 30 
1640 
1650 
1660 


260 


270 


280 


290 

300 


310 


320 


330 


340 


341 


342 


343 


344 


350 


360 


370 


380 


390 


400 


410 


420 


421 


472 


WRITE ( 
FORMAT 
WRITE ( 
FORMAT 
WRITE! 
FORMAT 
WRITE ( 
FORMAT 
WRITE! 
FORMAT 
WR I T E ( 
FORMAT 
WRITE! 
FORMAT 

WRITE ( 

FORMAT 

WRITE ( 

format 

wr net 

FOP‘'AT 

WRITE! 

FORMAT 

WRITE ( 

FORMAT 

WRITE ( 

FORMAT 

WRITE ( 

FORMAT 

WRITE ( 

FORMAT 

WRITE < 

FORMAT 

v:r i t e ( 

FORMAT 
WRITt ( 
FORMAT 
WR IT E ( 
FORMAT 
WR IT E ( 
FORMAT 
WRITE ! 
FORMAT 
WRITE ( 
FORMAT 
WRITE ( 
FORMAT 


ELECTRICITY (S/KWH) • .T50.F10.3) 
($/GAL) • *T50,F10.3) 


16*260) YMI 

(2X,*MIlES TRAVELED PER YEAR* ,T50,F10.3) 

1 6 *270 ) F U 1 

( ?X , ‘FRACTION OF MILES IN C I TY • ,T50 «F 10. 3 ) 

16*280) FMEDI 

( 2 x , » "RACT ION OF MILES IN CITY, ELECTR IC • ,T50 *F 10.3) 

1 6 * 290 ) SE XU _ _ . 

! 2* «• ENERGY CONSUMPTION IN C 1 TY (KWH/TON-M I LE) • *T50 »F10.3) 

1 6 * 300 ) SEXH _ 

<2X, ‘ENERGY CONSUMPTION ON HIGHWAY (KWH/TON-MILE) 0 *T50»F10. 3) 
16*310) EEPUI _ _ 

(2X, ‘FRACTION OF ENERGY FROM ENGINE IN C I TY * ,T50 ,F10.3) 
16*320) EFPHI , 

(2X, ‘FRACTION OF ENERGY FROM ENGINE ON HIGHWAY* *T50«F10. 3) 
i6 * 330 ) DPKWHE 
(2X, ‘PRICE OF 
16 ‘ 340) GPO 
(2X, ‘GASOLINE PRICE 

(2X* 'SPECIF IC WEIGHT OF MOTOR 'GENERATOR (LB/KW) * ,T50,F10.3> 

16*342) SW'CiEN 

(2X, ‘SPECIFIC WEIGHT OF GENERATOR (LB/KW) • »T50‘F10.3) 

16*343) SwCNT „ „ ,, 

(?X, ‘SPECIFIC WEIGHT OF CONTROLLER (LB/KW) ' *T50 »F10. 31 

1 6 * 344 ) UOCC 

(2X, ‘SPECIFIC COST OF BATTERY CHARGER (S/KWH) • ,T50»F10.3> 

16 , 350) SRC MG 

(2X, ‘SPECIFIC COST OF MOTOR/GENERATOR •* T50,F 10. 3) 

16 ‘ 360) SPCGEN 

(2X, ‘SPECIFIC COST OF GENERATOR ( $/KW )*, T50 *F 10.3! 

1 6 ‘ 370) SPCCNT 

(2X. ‘SPECIFIC COST OF CONTROLLER ( $/KW> ' »T50 *F 10.3) 

1 6 ‘ 3 HO ) MBF I 

(2X, ‘HYBRID BATTERY FACTOR (HI GHWAY ) • *T50 *F 10. 3) 

16* 390) CHEF 

(2X, ‘BATTERY CHARGING EFFICIENCY FROM PLUG* .T 5 C ,F10.3) 
16‘400)l)SECU 

(2X, 'ENGINE BSFC IN CITY (LB/BHP-HR) • *T50‘F10.3) 

16*410) BSFCH 

(?X, ‘ENGINE BSFC ON H I GHWAY (LB/BHP-HR )• *T50*F 10.3) 

1 6 • 420 ) TM|> 

( 2 X * • I INF. FOR SUSTAINED POWER FROM F.W. (SEC) • *T50,F10.3) 

16.421) VICF 

(2X. ‘VEHICLE IMPROVEMENT COST FACTOR • *T50 ,F10. 3) 

16.422) U‘MIFHV(I) .IslfNSY) 

(2X.‘MA1NTENC£ IMPROVEMENT FACTORS SYSTEMS • , 1 1 .T50.F10.3) 
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1 6 f OC 
l6«0C 
i6‘*nc 

1700 
1710 
1 720 
17 30 
17*0 
1750 
1760 
1770 
l 7 HO 
1 7*10 
1800 


1810 

lero 

1830 
10*0 
1880 
1860 
1870 
1880 
1 8 'HI 
1*700 
1*710 
1920 
1930 
19*0 
1 « r >0 
I960 
1970 

1 9 HOC 
1O90C 

?oooc 

7010 

2020 

20 30 
20*0 
2050 
2060 
2070 
201)0 
2090 
2100 
2110 
2120 
2130 
21*0 
2150 
2160 
2170 

nii.T 


•••«»»•• ECONOMIC FACTORS «»••***#• 

WRI Tf (16**30) 

630 FORMAT!/. 2X,'1A»LC B! FCQN0M1C FACTORS' ./> 

WK I TL <16**60) OR 

**0 FORMAT ( 2 X « • 0 1 SCOUNT RATE • .T60.F 10.3) 

WRI Tf 1 16**50) IR 

*50 FORMAT (2X,« INTEREST RATE ' *T50*F10.3) 

WRITE ( 16 **60) NS 

*60 FORMAT (2X» 'PAYBACK PERIOD STRUCTURE IYRS) ' *T50» 1 10) 
WRITE! 16 .*70) NF 

*70 F0RMAT(2X, 'FINANCE PERIOD (YRS) • oT50» 1 10) 

WR I TF (16**80) TX 


*80 FORMAT ( 2* ♦ ' T Ax RATE* .TS0.F10.3) 

WRIT! (16**90) IF 

*90 FORMAT!.’*, 'INFLATION FACTOR' *T50»F10. 3) 

WRITE! 16**91) ST 

*91 FORMAT (2X, 'SALES TAX • *T50,F 10.3) 

WHITE ( 16**92) DMUP 

*92 FORMAT (2X, 'DEALER MARK UP' *T50»F10.3) 

WRI TF ( 16**93) NLDF 

*93 FORMAT (?x, 'NONLINEAR DEPRECIATION FACTOR' «T50«F10 o 3) 

500 SfcXsSl.XU 

ETAf J=.li**/BSFCU 
F T At Us. 1 J*/ESFCH 
ALPMAC = SWt N(*»SWTRN 
WVO=wl/ ( 1 .-(AlPMAC*KPC) ) 

WDTO=w'VO*KPC*ALPHAC 

YMt'rYMl 

IF ( IPTO.FO.OJOO TO 980 

,»•*..««« CONVl NT IONAL VEHICLE DESCRIPTION ««*•»<****)*» 

WRIT! ( >6*5)0) 

510 FORMAT (// ,?X, 'CONVENTIONAL VEHICLE') 

WRIT) ( 1 6 * 620 ) KFC 

520 FORMAT (2X.M>0WIR TO WEIGHT RAT 10 (KWVLB) • ,T50.F 10.3) 

530 FORMAT ( 2X * • V<L 1 GMT POWERTRAIN(LBS) • .T50.F10.3) 

WRITE ( 16*‘ *0) SWF' MG 

5*0 FORMAT (?X. 'SPECIFIC WFIGMT ENG INF (LB/KW) • .T50.F10.3) 

WR l Tt. ( 16 • '*50 ) SWTRN 

550 FORMAT (?x * *SPLC I F I C WEIGHT TRANSMI SS10N (LB/KW) • .T50 *F 10.3) 
WR I T t ( 16*560) SPCHL 

560 FORMAT (2X, 'SPECIFIC COST ENGINE ( S/KW) • ,T50»F 10. 3) 

WRITE! 16*570) SPC TRN 

570 FOR M AT (?X,* SPECIFIC COST TRANSMI SSION ($/KW) • *T50»F 10.3) 
WRITE !16*5bO)KPGO 

580 FORMAT !2X,'FLi L ECONOMY IN CITY (MILES/GAL) '.T50.F10.3) 
WHITE (16«590>MPGH 

590 FORMAT (2X, 'FUEL ECONOMY ON HIGHWAY (MILES/GAU • .T50.F10. 3) 

1 . 1 (2 1 T I » » a . r* .» * • .»Y. #*rt 


2“8 


SEVERAL KU6TBIC 


21B0 
2190 
2200 
2210 
2220 
22 30 
2 2* 0C 
22'>0C 
22ftOC 
2220 
2200 
2290 
2 300 
2310 
2320 
2330 
23*0 
2 360 
23*0 
2370 
2380 
2390 
2*00 


WR IVf.l . 6 * ftOO > MPGCB 

600 F0RMAT(2X.*F1IEL ECONOMY (COMPOSITE) • »T50»F?0»3) 

WRIT! (16.601) C.CV 

60 1 FORMAT i2X, 'CONVENTIONAL VEHICLE COST (t) • «T50»FIQ.3) 

WRlTt (16*60?) NSCV 

602 FORMAT (?X« ‘CONVENTIONAL VEHICLE LIFETIME (YR) • »T5G.FiO«3> 

SUMMARY OF CONFIGURATIONS **»*«»*•** 


WRITE (16*610) 

610 FORMAT ( // »2X * • SUMMARY OF DRIVELINE 


CONFIGURATIONS EVALUATED 1 ) 


WRITE! 16*620) 

620 FORMAT < 2 X . • l “PURE STORAGE VEHICLES* 
6 T 70 » * SECONDARY STORAGE • »T89» *F5S* ) 


*T50. 'PRIMARY ST0RA6E* * 


V. R I Tf C 16 * 630 ) 

630 FORMAT (2X, 'DRIVELINE CONFIGURATION*) 

WRITE (16.6*0) 

6*0 FORMAT (2*« • ELECTRIC: PR I MARY* »T50« *P8 ACID 


WRI TE ( )6»6S0) 

650 FORMAT (T50.*NI-ZN*) 
WRITE (16*660) 

660 FORMAT (T50»*NI-FE* ) 
WRITE ( 16*670) 


A") 


2*10 670 FORMAT (T50**LI-S*) 

2*20C 

2*30C»»***«*«* ELECTRIC VUUCLf. DESCRIPTION ••**•*•**• 

2**0C 

<><,50 WR I TF ( 16 .feP 0 ) F 5S ( 2 ) 

2*60 680 FOR > ’AT(?X.*ltlCTRlC: PPR 1 MARY /SECOND ARY • «T50» ’LEAD 

2*70 6 AClD*.T8').F*«c) 

2*80 WRITE ( l6*ft901FSS(2) 

2*60 690 FORMAT (T50, ‘LEAD AC ID* »T70 * ‘FLYWHEEL * .T89.F*. 2) 

2500 WR l TF ( 16 * 700) F SS ( 2 ) 

2510 700 F OR'AT ( T50. *L l-S* «T70. 'LEAD ACID* .T89.FA.2) 

2520 WRITt < 16*710)FSS(2) 

2530 710 F0«MAT(T60,*LI-S*.T70. ‘FLYWHEEL*. T89.F*. 2) 

2S*0C 

2550C *••*•**■** HY0R1D VEHICLE DESCRIPTION #*«»»»***»»» 


ACID* *T70. 'LEAD 


2560C 

2670 

2580 

2590 

2600 

2610 

2620 

2630 

26*0 

2650 

2660 

2670 


WP 1 T t ( 1 6 « 7 ? 0 > 

720 FORMAT ( ?X , »HYi*R ID (HEAT rNGlNE/ELECTRIC) VEHICLES* »T50» 

6 'PRIMARY STORAGE * . T70 ♦ * SECONDARY STORAGE* »T09» *F$S* »T9* » 'EDE* ♦ 


6 TlOO.MME*) 

WRITE ( 16*730) 

730 FORMAT ( ?X , » SI R 1 1 S (PR I MARY) • «TSO.*LLAD ACID* «T9* « • l .0* .T 100. • .33* ) 


WRITL(16.7*0)FSS(3) .FDl (3).FHF.(3) 

7*0 FURMAT (2X, 'SERIES (PRIMARY/SECONDARY) *.T50. 'LEAD ACID*«T70. 

6 *LIAD ACID*.T89.F*,2.T9*.F3.I»T99»F*.2) 

VlRITE(16.750)FSS(3) *FDE (3) «FHE (3) 

760 FORMAT (TSO.'LEAD ACID* »T70.*FLYWMEEL* «T89.F6*2 »T9* «F3. 1 »T99 * 


26ftO 
2690 
2700 
2710 
2720 
2750 
27*0 
2750 
2760 
27 70 
2780 
2790 
2800 
7810 
2020 
2030 
20*0 
2050 
2060 
2870 
2800 
2890 
2900 
2910C 
2920C 
2930C 
29*0 
2950 
2960 
2970 
2980 
2990 
3000 


3010 

3020 

30 30 

30*0 

3050 

3060 

3070 

30**0 

3090 

3100 

3110 

3120 

3130 

3 1 *0 

3150 

3160 

3170 

3100 

3190 

3200 

3210 

3220 

3230 

32*0 


6 F * • 2 I 

WRITE < 16.760)1 &S t 3 ) ♦form *FHE<3> 

760 FORMAT ( T 50 , *L I “S' « T 70 * 'Ll’ AD AC 10 '*TB9*F*» 2*T9A*P3*l*T99«F*»2) 

H: 1 1 M 1 6 * * 70 ) F bS ( 3 ) * IDE ( 3 ) * F HE ( 3 ) 

770 f U’RMAT (T50, *L I-S' • T 70* 'FLYWHEEL ' «T89«F**2*T9A«F3»1«T99*F*<>2) 

WR I Th( 16*780) TOE (*> .FHCIM 

780 FORMA T ( 2 * . • PARALLEL 1 PR I M AR Y ) • ,T5C,'PB ACID. A' *T9*.F3. 1 *T99*F*.2) 

HR I TF C 16 * 790 ) F OF. ( * ) • FHE ( * > 

790 FOb^AT ( T50, 1-2(1* *T9A*F3« 1 iT99*F*.2) 

WR I TL ( 16 *8001 For. (A) »FNl (*> 

800 FORMAT ( T 6(> , • h I -F F, ' * T9* *F 3 . 1 * T99 *F4 .2 ) 

WRITE ( 16*810) FOE <*> «FHE<4) 

810 FORMAT (T50, *L 1-5 • . T94 *F3. 1 « T99 *F4. 2 > 

KRlTC(16»820}FSS(5i ,F0E(5> ,FHE(5) 

820 FORMAT (2X, 'PARALLEL (PRIMARY/ SECONDARY) 1 ,T50*'LEAD ACID* «T70» 

& ‘LEAD ALIO* »TB9tF*.2*T94,F3»l *T99*F*,2» 

WR I Tt ( 16 *830) FS5 ( 5 ) ,FDE<5) *FME<5> 

830 FORMAT < T50, ‘LEAD AC ID* «T 70* ‘FLYWHEEL '*T89,F4»2»T94*F3»1»T99 
6 .FA.2) 

WR I TE ( 1 6 * 8*0) FSS ( 5 > *FDE<5) *FME<5) 

8*0 FORMAT (T50,'LI-S 9 *T70.'LEAD ACID* *T09*F*.2«T9**F3. 1 «T99.F*.2) 
wR ITE ( 16*810) FSS (5) *FDE<5> *FHE«5) 

850 FORMAT (T50,‘L I-S* *T70.' FLYWHEEL* *T89 ,F*.2 *T9* *F3. 1 »T99 *F*.2 ) 

•*•*««» TABLE C *— STORAGE REQUIREMENTS *»•#** 

WR1 TE ( 16«86u) 

860 FORMAT (2* * /// ) 

870 FORMAT (2X, ‘TABLE CSSTORAGE UNIT CHARACTERISTICS USED IN THE DESIGN 
6 CALCULATIONS') 

WRITE ( 16*880) 

880 FORMAT (2X.T25* 'PRIMARY STORAGE* »T50* 'SECONDARY ST0RA6E' »T70» 'COST* 


fc THU. 'CYCLE L IFF' *T95. 'LIFETIME' ‘T 10* ♦ 'ENERGY • ,T 1 12 . 'BATTERY' ) 

WR 1 TL ( 16*890) 

890 FORMAT (2X.T70* 'WITHOUT • «T*0* ‘WITH* «T95* • YEAR* *Tl06« ‘EXP* • 

6 T1 12, ‘SALVAGE' ) 

WRITL ( 16*900) 

900 rORMAT (7X,T70* ‘LOAD LEVEL ING' * T40 «' LOAD LEVELING') 

WRtTt ( 16*910) 

910 FOR M AT ( 2 X, « STORAGE UN l T • ,T20,'WH/LB'*T26»'W/LB'«T3l*'WP/LP'« 

6 T* l * • WH/l.l)' *T*T, 'W/LO* »T52 * 'WH/LB* *T5B. 'W/LB' . T65 * • S/KWH' »T72» 

6 't/Li)'.lH0*'CYCLFS'*T95*'N0') 

WRITE ( 16 * 9 / 0 ) 

920 FORMAT (2X *• BATTERY TYPE') 

WRITE (16*930) ROE PS (I ) *R05PP(1) .ROPPSU ) ,ROEPSL< 1) .ROPLL < 1 ) « 
fc ROE'S 1 1 ! *1-1055(1 ) ,1'DI'KWHI 1 ) *CP ( 1 ) «CH 1 ) * VL 1 l l ) *EE < 1 ) *BSV ( 1 ) 

930 FORMAT <5X,‘LEAl) ACUi , *T20,F*.0,T26»F5.0*T31»F5.0*T*l»F5*0*T*7» 

6 r*.0*T57*F*,O*T5H,r*.().T65.F6.0.T72.r*.2*T80,F8.2«T95*F*»0» 

6 Tt05.F*.2«T113.F*.2) 

WR I TF ( 16 «9*0)H0D>5<?) «R05PP (2) *R0PPS(2) *ROEPSL (2) .ROPLL 12) « 

6 R0tS(2) *RII0SS (2) «Bt>PKWM<?) ,CP(2) *CL <2> *VLI (2) *EE (2) «BSV (2) 

9*0 FORMAT (5X « 'LEAD ACID ( ADV) '*T20*F4»0*T26*F5*0*T31*F5*0*T41*F5»0»T47 
6 .F*.0.T52,F4.0,T58«F4.0«T65.F6»0*T72.F**2*T60*FB.2*T95*F4o0* 

6 T105*F*.2.T113*F*.2) 

WRITE ( 16*950) ROEPS < 3) «R0SPP<3> ,R0PPS<3> .R0EPSLI3) .ROPLL « 3) » 

6 ROESO) .RH0SSC3) ,BDPKWH<3> *CP(3J *CL<3) ,TLI 13) *EEE3) .BSVE3) 


2-10 
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3?S0 950 FORMAT (5X, *Nl- 2N 0 « T20.F A o 0 «T26 *F 5.0 « T 3 1 %F5.0» T A l »F5»0 • T A7*FA»0» 

3260 6 TS2 *F h.O.TSB.F a.O.T65.F6.0«T72*FA.2»TH0»PB.2*T95*FA.0« 

3270 6 TIOS.Fa.P.TI l 3 »Fa.?) 

321,0 WR I TF ( 16.9,.OIPO| P5(A) .KOSPPIA) .ROPPSU) .ROfcPSL <Al *ROPLL (A) « 

3 2 90 6 HOI: 5(A) «I<H0S5 I A ) «t'l>PKWH (A) «CP < A) «t L (A) «YLI (A) *EF. t A ) *BSV (A) 

3300 960 FORMAT <5*« *NI ►' l * « T20 *F A •() » T26 «F 5.0 « T 31 *F5 .0 *TA 1 «F6.0 «TA7 « 

3310 6 F a ,0 , T ;>«’ ,1 A »0«T5»I «F a«0»T65 «F6«0 *T72 «Fa.2 ♦TBO*F8»2 «T95 »F A.0» 

3320 ft TlOh.f W»Tll3.rA.2) 

3 3JO WR I TE ( 16 ««I70 ) ROC PS (5) .ROSPP <51 »ROPPf»IM «KOEPSL (5) »ROPLL 151 ♦ 

3 3 aO l> ROES 15) »l.’HOSS(S> ,H0PKWH<5) »CP (5) *CL < 5 > , YL l < 5) .EE < 5) «BSV(5) 

3350 970 FORMAT <5* . *L I-S‘ • T20 «FA.O «T26 «F5.0 * T 3 1 .F5.0.TA1.F5.0.TA7 .FA.0.T52. 

3360 0 Fa.O.T5H,FA.O«T6S.F6.O.T72.FA.2»T80«F8.2.T95.FA.0« 

3370 6 Tl05,r«..2.Tl)3.FA.2) 

3 3 HO HPITf < 16*975) ROES (6) .BDPKWH (6) .CP (6 ) . Yl_ I (6) 

3390 975 FORMAT ( OX . • F LYnHFFL • .T52 »Fa.O ,T65 .F6.0 «T72 .Fa .2 .T95.FA.0) 

3aOO WRITE ( 16.860) 

3a IOC 

3A20C »**•***•* ****************************************** 

3A30C 

3AA0C MAIN PROGRAM LOOP 
3A50C 

3A60C******* ************************ ******************** 

3A TOC 

3 Him 980 no 20000 SYS=N5YS«N$Y 
3A90C SPECIFIC COST IN S/KW 

3500 gamma (SYS) s (Fill ( SYS) *$PCHE) .SPCTRN* ( FOE ( SYS) 

3S 10 *> * ( l • / CM*5CCN(j* SPCCNT ) ) 

3520C SPECIFIC M 1C.HT IN LK/KW 

35 30 ALPHA i SYS) = (Fill. (SYS)«SwrNG) ♦SWTRN* (FOE < SYS) * ( SWCNT*SWMG/CM) > 

35aO IF (SYS. I U. 1 )CAlL PURfP 

3560 I F ( SYS •£(•’. 2 ) CALL PSLCOY(SYS) 

3560 IF ( SY S.) O# 3 ) CALL PSLCOY(SYS) 

35 TO IF (SYS.f U.AICALL PARAHP 

3580 I F ( SYS.t'U.5 ) CALL PSECOY(SYS) 

3590 IF (SYS.t().6)CALL SEHYPC 

3600 WRITE I 16*990) 


3610 990 FORMAT (1H0) 

3620*20000 CONTINUE 
36 30C 

36A0C CLOSE FILLS DFTACH FCS FROM AFT 
36S0C 

3660 CALL FIIEP 

3670 STOP 

3600 EMIT 

3690 SUBROUTINE SEHYPR 

37O0C 

3 7 IOC** ** * 

J7 20C S O U R 0 U T INF. SEHYPR 

J 1 \<X •»•••••• ••»*•«•«•»» »«••••••••••••••••••••••«• 
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3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3850 
3850 
3860 
3070 
3880 
3890 
3900 
3910 
3920 
3930 
3980 
3950 
3960 
39 70 
3960 
3990C 
8000 
8010 
8020C 
8030 
8080 
8050 
8060C 
8070C 
8080C 
8090 
8100 
8110 
8120 
8130 
8180 
8150 
8160 
8 

8 J 80C 

8190 

8200 


HEM M>C*0T8ln«C0T0 

INTEGER lPTQ.NSY,rH)C.IPSU,NYL«N&YS,NOCS 
1MTF01 P L C ON 
REAL MPGU,MPGCtt 

REAL ROEPS*ROSPP.ROPPS.ROEPSL,ROPLL»ROES.«HOSS,BDPKNH.CP»CC.VLI 
REAL K.P«i -1 P6H*K «OP«R I 

REAL DR , I R . T X ,KPR » SWCNT . SWMG , SWC VT , SPCCVT 
REAL IRE 

REAL lF,LRC.ICr,MCMO,MIFMV«NLDF*HSCV 
INTEGER I YPE. SYS, TYPE SF.SYSSE 
DIMENSION GAMMA ( 6 1 »FDE<6) ,ALPHA(6> 

DIMENSION ROEPblSI iROSPPC,) »R0PPS(5> »R0EPSL(5> .R0PLLC5) »R0ES(6> 
DIMENSION RHOSS ( 5 1 ,»RPKWM(6> *CP(6) ,CL<5> *YL1 (61 .EE(5) »BSV(3) 

D 1 Ml NS I ON Ft I 16) «FHE 16) «FSS 16) 

DIMENSION MIFMV(b) 

COMMON /INITV/SYS.TYPE.KP.ITAD.W1,K,CW,PW,KPC. 

6 5PCHE *T M P « SEXU*SEXH»EFPMI ,EFPUI ,FUI .RSFCU«8SFCH, 

6 SPCMG,SPCGF.N.t.PCCMT,SPCTRN,DPKWME.ETAM,HBFI .SWENG.NYl. 

6 SWTHN,A.vC*GPO»MPGU,MPGC»»CHCF«MPGH.IPTO.NSY,NBC.IPSU» 

6 ROF.PS «RUSPP «R0i , P5»R0EPSL »ROPLL »ROF.S «RM0SS*t)DPKWH *CP »CL*YLI *EE« 

6 Fnr.,FDr.FSS.YMI,DP,N5YS«N0CS,TYPESE'.SYSSE.RI»6F»GX.CM, 

6 DR , I R , N S , f.F , TX , KPR , SWCVT , SPCCVT * SWCNT « SWMG . SWGEN 
6 *FMEDl «tTAPP»EC0N»IF »NSCV*VICF »HLDF »ST »DMUP*CCV 
6 ,MIFHV,LRC,ICF,MCMO,FlNC,UBCC.BSV 

COMMON /INITM/SEX»WVO»ETAEU»ETAEH,WDTO»GAMMA»YMP»ALPHA 

COMMON /IMTS/CDTO.DTMG.SEXHCV.QPCTG.TACCV.AGCCV.EFPU.EFPH.FUtYM 

REAL NBEUPG 
REAL MPG 
REAL 1C 

END OF RE AL/ INTEGER/DIMENSION/COMMON STUFF 

CFPU=EFPUI 
fFPM=FFPHI 
MOFsMflF I 
FU=r ui 
YM= YM I 

FME.DsFMEOJ 

TYPE=TYPtSE 

SYS=SYSSt 

FOR SERIES HYBRID PRIMARY ONLY - LEAD ACID TYPEsi 
R I (6) =30. 

R1S=R! (SYS) 

RI0=RI (D 


2=12 


*210 At ALPHA | ',V,| « (F HIE (<iY*>| oSwGfM 

*220 M>< .Pi | PS ( ! -O - ) • ( PIS/t'IQ » • * | £ « T VME > 

*2 1'< •• M ' ri/. ./n/.' '(.•(•I :>5»1 

l-«|. V; < ) ,-f -u l'vVt>) > « | OoO • wX-P/UOPPS ( TYPE ) 

<•250 PHI Sl»;>5 I0f.fl.* (f.K ■ (GF*y P*FHE (SYS) ) > 2R0SPP(TYP£| 

*26) JF O'-MP-. (.T.PPjPP|Prll=PMlP« 

*?70 IF a ■. :.‘P.C,T.P»-IP»)PHlsPniPP 

*2 HO IF *("US: '.CT.P'lIIPHIsPHISPP 

4210 PP = -;:»( ?.*:.TAD»ROEPS(TYPn>(»PHl/ (SEX*R10) >»* 

*300 6 ( l ./ I 1 ,-f ! (TYPE) ) ) 

*310 WV|?:i. /(!.-( (AlPHAS»FP| ) = ( ( 1 «,♦<) *PH I ) ) 

*320 WVsrivIP*nl 

*330 wOT l»s*v 10.1 ( 

*3*0 hL)Tr,.^Tl>-»«l 

*350 »)) = <. V*RH I 

*360 WKI TE ( 16, ICO) 

*370 100 FORMAT!//. 2X, ‘SERIES HYHP I D: PP IMAP Y ONLY • ,5X «• PHI • «7X « »RR • • 

*3H0 0 h X « ‘ /. V 1 “ • ,5X.'WV‘*,ex,‘WDTlR‘,5X,‘WDT‘,5X"‘WB‘.*X,‘YL , > 

*390 YLSsYlI 1TVPE) 

**00 IF(f.YL.EO.O) YL = YlS 

**10 IF(NY t .EU. n YL=2.»OP*CL(TYPE)*POEPS(TYPE)*PHI*ETAO/'EX/YM/HBF/FU 

* * 2 0 C HrF = I, FC-P M-lflAPY (HYBRID BATTEPY FACTOR) 

**30 WRITE ( lfc, 1 10) PH I ,RR,wVlR,WV,WDTlR,HDT,WB»YL 

***0 110 FORMATS, ‘BATTERY TYPEILEAO AC I D‘ ,F 10. 3*F10.0,F10.2 ,F10.0, 

**50 6 F10.2»2F10,0,F7,2) 

**(50 C 

**70C HEADER for DRIVELINE cost 
**BOC 

**90 WRIT! (16,120) 

*500 120 F0R"AT(//,2X, ‘DRIVELINE COST‘) 

*510 LR I TE (16,1*0) 

*52 0 1*0 FORMAT ( 27 , »pp l ,, ,APY • , T l 7 , 'PR I MARY • »T30« • SECONDARY* 

*530 6 »T*5,‘EtCG?.DARY‘ , T*5 ,‘ TOTAL • ,T6* ,» INCREMENTAL • ,T 100 , ‘EHV • ,/ »*X 

4 5*0 0 *• t y;>e • » T 19, ‘COST* »T3*, • TYPE* ,T*0, ‘COST* *T60, ‘DRIVELINE COST* 

*550 6 ,T»i?,‘[<RI VCLlf.E COST *, T 1 00, ‘COST • ) 

*560C PPI^ARr COST 

*5 7 0 PC r . V«PMI *ro ( TYPE ) * ( 1 ,*p •(!(•/) 

*5R0 C1*C HS ( WV*- o l *>’ ')E.PS 1 *U0CC * ( 1 » ♦D M UP ) ) / 1000, 

*59oc total dpi vt tkajo cost cot 

*600 CiA , "*ASrOA* M A (SYS) ♦ (FI- E (SYS) *SPCGEK) 

*610 C DTiPC ♦ ( * \ *K(>»(.A'1«1AS! * < 1 • ♦CNUP) ♦ CBCH 

*6?0C CONVL'.TIPOYL COST CDTO (NEAT FOGINE *TRN) 

*6?0 CDTC -aVO*YPC» (SPCHE*SPCTRN)*( l.*OMUP) 

*6'0C THE IOCPE''! r.TAL DRIVELINE COST CDTI 
*650 COT I ss.DT-0.-TO 

*6 HOC COST OF ADDITIONAL HEIGHT OF CAR AT (AHOS/LB 

*6 70 l-FLC* -K*PhI *WV* ( 1 »»DPUP) 

*6ao ic=n>n-pc*(i.-bsv(TYPEn 

*690 t.ELCOT = IC«ULCW 

* 700C CPMEOP = CFNT PER k ULE OF FOUIPMENT 

*7 me 

*720C EVALUATE CHI VS 6 HLPF (IF N L DF NOT EOUAL TO 1 BY USER) 

* 730C 

4 7*0 IF (( LOF.ol.I.) NLOFs ( 2 . *NS-NF* 1 . ) / (NS* 1 • ) 

*750 CN( VS = l>ELft)T ♦ (CCV-CDTO) * 1 1 •♦VICF) 

*760 CEHV^CHFVS ♦ PC*( l.-BSV(TYPE) ) 

*770 IHE= t U-tX)*IR 

*780 FF=(,F»Iftt/ (l»-( l»»!RE)**<-NF) ) 

*790 F F 0 s F F # I DR- IF I / ( '(•♦IF) 

*800 FF 1 a ( 1 b *DR )/(»»♦ IF) 




GENERAL ELECTRIC 


<.810 FRCS*fF0 / I1.-FF1#*1-NS> » 

<.820 f«CU=FFO / <U-FF1«*(-YU> 

<.830 CPMFOf’= I «FRCS*N|,I)F»CHEVS) ♦ 

<•840 U (FRCll* ( l .-05V < TYPF ) 1 #WV*PH1 *CP < TYPE) I ) 

4850C UP T MFC) = 1)01. LAP 5 PFR TOM MILES EQUIPMENT 
<.860 t)PTML>) = CPMEOP/100./IWI/?000.) 

4 870C UPTMFL = l)OLLARS PhR TON MILES ELECTRIC 

48H0C UPKWHt =DOLL ARS PER KILOWATT HOUR ELECTRIC 
<.890 IF (FU.M). 1 . )MPG=MPGU 

<.900 lFlFU.Nf . l.)MPG=MPGCO 

4910 SEXHCV=35. 1/MPG/WV0*2000. 

4920 DTMC.sGPO/MPG/W 1*2000. 

4930 UPTPtL= IWV/W1)*DPKWHFM (FU*FMEO*SEXU* ( 1 .»EFPU> /ETAO) ♦ ( C l.-FU) 

4940 6 »sexh»u.-efph) /etad)) /chef 

4950C 

4960 FRCV = FFO / (1. - FF1**(-NSCV)1 

4970 DFCV= <2.»N5CV-HF*1. J / (NSCV*W> 

4980 DTMCV=<FKCV*DFCV*CCV*(1.*$T> ) / < YM*Wl/2000. > 

4990C 

5000C LRC = L1CFNSF AND REGISTER FEE 

5010C FINC s FIXED INSURANCE COST 

5020C ICF s INSURANCE COST FACTOR 

5030C MCMO = MAINT1NENCE COST PER MILE FOR CV 

5040C MIKHV s MA 1 N 1 1 NANCE IMPROVEMENT FACTOR FOR HYBRID VEHICLE 

5050C 

5060C 

5070 IlCsPC 

5080 ADCHV=LPC*FINC*1CF»(CHEVS*BC) 

5090 ADCCV=LPC<-FINC*ICF»CCV 

5100 MCHV=.01»MCM0»YMMI,-MIFHVISYS> » 

5110 MCCV=.01«MCMO»YM 

5120C 

5130 nbeupg=dptmeu*optmel 

5140 6 - DTMCV ♦ ( ADCHV-ADCCV»MCHV-MCCV1 / < YM*Wl/2000. ) 

5150 DBEUPG=.t'3 * ( SLXHCV*WVO/W 1 - 

5160 6 WV1RM HU*FMtD*5EXU*EFPU / (ETAEU'ETAM) ♦ 

5170 6 < l.-FU) *SEXH»EFPH / <ETAEH«ETAM> ♦ 

5160 6 FU* ( l.-FMEDI *SF.XU / (ETAM*ETAEU) > ) 

5190C HEUPC.srRr.AK EVEN UNIT PRICE OF GASOLINE 
5200 »EUPC. = NbtUPG/DHFUPG 

5210 GCPMHVsO. 

5220 IF (FU.EU.l.) GOTO 145 

5230 C,CPMHV=GPO* (WV/2000.) / <36.63*ETAM) * 

5240 6 ( SEXU*FU*FMED»EFPU / ETAEU ♦ SEXU*FU* (1 ,-FMED) i ETAEU ♦ 

5250 6 SEXM*U.=FU»*EFPH / ETAEH ) 

5260 145 CONTINUE 

5270C 

5280C CALCULATE OPERATING COST PER MILE (CENTS/MI) 

5290C 


0f f'OOft 
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5300 OPCTEHVs 100.*( !W1/2000.)*(DPTMEQ*DPTMEU * 

5310 6 ( ADCHV *MCHV ) / YM ♦ GCPMHV ) 

5320 OPCTGs 1 00 , « ( (Wl/2000.)*(OTMCV*OTMG) ♦ < ADCCV*MCCV> /YM > 

5330C 

5340C CALCULATE TOTAL ANNUAL OPERATING COST (S/YR) TACEHV 
53SOC 

5360 AOPCGs&CPT'MV*YM 

5370 TACEMVsOPCTEHVMYM/iOO.) 

5300 AOPCEOC= I ACFHV-A0PC6-ADCHV-MCHV 

5300 TACCVsOPCTG# (YM/100.) 

5400 AGCCV=OTMG*(W1/2000.)*YM 


5410 WRITE (16* 150) PC, COT, COT I ,CEHV 

5420 150 FORMAT < 2X , • PB-AC I O' ,T 17 ,F 10.0 ,T60 ,F 10.0.T82 .F10.0 »T95 ,F 10.0) 

5430C 

5440C HEAOEH FOR PKfAKEVEN GAS PRICES 
5450C 

5460 WRITE (16* 160) 

5470 160 FORMAT!//, 2X. 'OPERATING COSTS AND BREAK EVEN GASOLINE PRICES') 

5480 WRITE (16 * 1 70) 

5490 170 FORMAT (TV), 'GAS BKE V ' , T70 . 'OPER COST EQ&EL » ♦ T87 , 'HV GAS-PO' 

5500 6 ♦T103,'U(- IVE CHAR') 

5510 WRITE (16 *180) 

5520 180 F0RMAT(2X,'TYPt' , T 1 9 ,' DELCDT • ,T27, 'BATTERY COST * * T40 * • DPTMEO' 

5530 6 ♦T50,'0PTEML' ,T57,'GAS S/GAL • , T67 , • OPER S/M I • . T82 . • S/YR • «T92« 

5540 6 'S/YR',1 10l*'LB/KW'«T112,'S/KW') 

5550 WRITE! 16,190) DELCDT , PC , DPTMEO ,DPTMCL .BEUPG, 

5560 6 ()PCTEhV*AOPCECIE«AOPCG. ALPHAS, GAMMAS 

5570 190 FORMAT (2X, 'LEAD AC I D • «T 1 5 ,F 10.0 »T26 »F 10. 0 ,T37 ,F9. 3 9T47 4 F9 e 3 

55**0 6 .T57,F9.2,T67.F9.2,T77,F9.2,T87.F9.2.T97»F9.2.T107.F9.2) 

5590C 

5600C OUTPUT ENERGY CALCULATIONS IF EC0N=1 

56 IOC 

5620 NTYPE=1 

5630 IF (ECON.EO.l) CALL ENCAL ( KV »NTYP£ ) 

5640C 

5650C OUTPUT CONVENTIONAL VEHICLE OUTPUT 
566PC 

5670 CALL CONVP 

56«0 RETURN 

5690 END 

5700 SUBROUTINE CONVP 

57 IOC 

5T20C*"'"*"""*""*"""***""***”*""*** 

5730C SUBROUTINE CONVP 

5740C******* »*•»»•* *•»•*•#**»*•»*»*****•#»****#*** 

5750C 

5760C CONVCNT IONAl VEHICLE PRINT 
5770 MTAL KPC ,1'THG.CDTO 

5780 REAL [F,IRC,ICF,MCM0,M!FHV,NLDF,N5CV 

5790 INTEGER 1RT0,NSY »NHC % IPSU.NYL *NSYS«NHCS 

5800 INTEGER tCON 

5810 REAL MPOU.MPGCB 

5820 REAL HOt RS.R0SPP,R0PPS,R0EPSL,R0PLL.R0ES*RH0SS»9DPKWH»CP«CL«VLI 

5830 REAL KP »NPGH ,K ,0P ,R I 

5840 REAL OR . I R . TX ,KPR , SWCNT . SWMG .SWCVT ♦ SPCCVT 

5850 INTEGER TYPF.SYS,TYPfSE,SYSSE 
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•.not s u it » on t i n r c o n v p 

«, 7 <i(K ***•*«•>***' + ***** »««««*»»**•#*•*»*##********** 

5750C 

5760C CONVENTIONAL VI. Ml Cut PRINT 
5770 HEAL KPC , 1 ” MG.CDTO 

57H0 REAL IT ,LRC:,!CE.MCHO MIFHV.NLDF.NSCV 

<>700 IIWGER lPTO.NSY,NHC.!U':A),NYL,NSYS»NtteS 


5000 

5810 

5820 

5830 

5850 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5950 

5950 

5960 

5970 

5980 

5990 

6000C 


INTEGER tCC'H 
HEAL MPGU.FPGCB 

REAL HOE H 5 <R 0 SPP<R 0 PPS<R 0 EPSL .ROPLL .ROES.RHQSS.BOPKWH.CP.CL.YL I 
REAL KP.MPGH.K.DP.RJ 

PEAL OR , I R , TX ,KPR .SWCNT »SWMG .SWCVT .SPCCVT 
INTEGER I YPt .SYS.TYPFSE.SYSSE 
DIMENSION GAMMA ( 6 ) .FDE ( 6 ) 

DlMf NSION KOEPS ( 5 1 ,H 0 SPP< 5 ) .KOPPSIS) .R 0 FPSU 5 ) *R 0 PLL< 5 ) .R 0 ESI 6 I 
DIMENSION RHOSS ( 5 ) ,BDF'KWH<fr) ,CP< 6 ) ,CL( 5 ) .YLl ( 6 ) .EE( 5 ) .BSVI 5 ) 

01 MENS I ON RII 6 I .FMEI 6 ) .FSSI 6 ) 

DIMENSION MIFHV(A) 

COM*'ON /INI TV/ SYS « TYPE .KP.ETAD.W 1 ,K ,CW ,PW ,KPC . 

6 SPCHfc.TMP.SEXU.SEXH.CFPHI.EFPUl .FUl .BSFCU.BSFCH, 

6 spcmg,sfcgen.spccnt.spctrn,opkwhe.etam,hbfi .SWENG.NYL. 

6 SWTRN , AWC .GPO.MPGU.MPGCB.CHEK.MPGH.IPTO.NSY.NBC.IPSU. 

6 ROEPS,ROSPP,HOPPS.ROEPSL,ROPLL,ROES,RHOSS.BDPKWH,CP»CL»YLI.EE. 
6 FHE.FDE.FSS.YMI.OP.NSYS.NBCS.TYPESE.SYSSE.RI . 6 F.GK.CM, 

6 DR . 1 R .NS.NF .TX.KPR.SWCVT .SPCCVT .SWCNT .SWMG.SWGEN 
0 .FMEDI .tTAPP.ECON. IF .NSCV.VICF .NLDF «ST .DMUP.CCV 
fc .MlFHV.LRC.lCF.MCMO.FINC.UBCC.BSV 


6010 COMMON /IMTM/SEX.WVC .ETAEU.ETAEH.WOTO. GAMMA 

6020 COMMON /INITS/CDTO.DTMG.SEXHCV.OPCTG.TACCV.AGCCV.EFPU.EFPH.FU.YM 

6030C 

6050C END OF REAL/ INTLGER/DIMENSION/COMMON STUFF 
6050C 

6060 WR I TE ( 1 6 » 100 ) 

6070 100 FORMAT (2X»// ) 

6080 WR I TE ( 16 * 1 10) 

6090 110 FORMAT (2X, •CONVENTIONAL VEH I CLE • , T26 , • WVO (LBS) • ,T35 , • WDTOILBS) • * 

6100 6 T56 * *CDTO ( 1. ) • «T55,»GP0($/GAL> • , T66, *DTMG ($/ TON-MI ) • ,T80 

6110 6 ,'OPCT (C TS/MI ) • ,T96. , TACCV(*/YR) • ,T UO . ’ AGCCV* ) 

6120 WRITE ( 16. 120)WVO,WDTO,CDTO.GPO»DTMG,OPCTG,TACCV.AGCCV 

6130 U'O FORMAT <2X,T25.F9.0.T35.F9.0,T55»F9.2»T55»F9.2»T67,F9.2.T80 
6150 6 *F9.2,T94»F„9»2»T105»F9.2> 

6150 RETURN 

6160 END 

6170 SUBROUTINE PUREP 

6 1 80C 

6 1 90C*******»» ************************************ 

6200C SUBROUTINE PUREP 

62 IOC******************** ************************* 

6220C 

6230 INTFGFR SYS 

6250 COMMON /If. I TV/SYS 

6250 WRITE ( 16.100) 

6260 100 FORMAT I//.2X, ‘PURE STORAGE SPRIMARY ONLY • ,5X « *PHI • ,TX , 'RR* ,8X, 

6270 6 • WV 1R • ,5X , • WV* »8X. ’WOTIR* »5X« 'WOT* .TX.'WB'.^X.’YL') 
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6280C 5YS«I 

62O0C MOLPSsWH/LIt (PRIMARY) 

6300C. ROPPS"W/L(' I PH t MARY ) 

6310 CALL PRIM Y(SYS) 

6320 RE TURN 

6330 Il'iD 

6360 SUBROUTINE PAR AHP 

6 350C 

6360C ******************* *************'******'******* 

63/OC SUBROUTINE PARAHP 

63 H 0 C****°*** ,, ** e * ,,, ** # * ,>, ’* ,, *®**** ft ***®® , ‘********** 

639 OC 

6600 INTEGER SYS 

6610 COMMON / IfU TV/S>vs 

6620 WRITE ( 16* 100) 

6630 100 FORMAT <2X„* PARALLEL HYBR l D ! PR l MARY ONLY* «5X»*PHI , *7X» , RR , *8X» 

6660 6 'WVIR' ,SX, »WV' »8X» ‘WOTtR’ ,5X, »WDT* ,7X«»WB* .AX.^YL' > 

6650 CALL PRlf'RY (SYS) 

6660 RETURN 

6670 END 

6680 SUBROUTINE PR I MR Y (SYS) 

6690C 

6500C* ******* * a*********** ************************ 

65 1 OC SUBROUTINE PRIMRY 

6 b? 0 C************ #ft<Mtft ****** # *** # * # **** # **** # ***** 

6530C 

6560 REAL KPC»DTMG*CDTO 

6550 REAL I F ,LRC . ICF ,MCMO,MIFHV»NLDF *NSCV 

6560 INTE&fR lPTO*NSY,NBC*IPSU,NYL»NSYS*NBCS 

6570 INTEGER ECON 

6580 REAL MPGU.MPGCB 

6590 REAL ROE^S*ROSPP *ROPPS*ROEP5L»ROPLL»ROES*RHOSS»BOPICWH*CP *CL*YLI 

6600 REAL KP*MPGH«K.DP«RI 


6610 REAL DR , IR.TX ,KPR , SWCNT , SWMG * SWCVT , SPCCVT 

6620 PEAL IP.f 

6630 INTEGER T YPE * SYS ♦ T YPF SI- , SYSSE 

6660 DIMENSION f.AMMA(6) *FLE(6) .ALPHAI6) 

6650 DIMENSION ROEPS(S) *R0SPP(5) *K0PPS(5) «P0rPSL<5) *R0PLH5) *R0ES(6) 

6660 0 I MF NS I O'- RHOS5I5) »BDPKWH(6> *CP(6) ,CL(5) »YLI (6) »EE<5) *BSV(5) 

6670 DIMENSION RI (6) »FHE (6) *FSS(6) 

6680 DIMENSION K I F M V ( 6 ) 

66°0 COMMON /ll!ITV/lSYS*TYPt*KP*ETAD*Wl,K*CW»Pw.KPCi 

6700 6 SPCHt .TMP.SEXU«SrXH«EFPM| »FFPU1 *FUI *BSFCU«0SFCM, 

6710 6 SPCMG,SPC(.«N,SFCCNT,SPCTRN,UPKWME,ETAM,UBFUSWEMG*NYL. 

6720 6 SWTRN. A»X, GPU *MPGU«Mi>GCP. CHEF *MPGH«1PT0 vNSY*NBC*IPS'J» 

67 30 6 ROF PS.MlbPP *kOPPS .ROEPSL ,ROPLL ,R0ES»KH0SS,8DPKwH,CP*CL,YLI »EE» 

67AO 0 FML*FDE .FSS.YMI ,DP ,fiSYS .'iPCS. T YPESE * SYSSE »R l ,GF»GK ,CM. 

6750 6 DK,IR,r:S,liF,TX.KPR,5WCVT,SPCCVT,SWCNT,$WMG,SWGF.N 

6760 & ,FMED1 ,tTAPP,tCDN,IF,NSCV,VICE,MLDF,ST»DMUP,CCV 

6770 0 ,M!FNV»LRC*lCF.MCMO*FlNC,Ut)CC*oSV 

6780C 

67«»0 COMMON / 1MTM/SCX, WVO,ETAEU,ETAEH, WDTO .GAMMA, YMP» ALPHA 

6800 COMMON /INI TS/CDTO*DTMG» SF.XHCV »OPCTG»TACCV .AGCCV.EFPU.EPPH.FU.YM 

68 IOC 

6820 REAL I C »NHEUPG «MPG 

6830 I NTCGk.P lYPt.SYS 

6860 DIMENSION PHIPR(5) »PHIPP(5) ,PHI (5) ,RR(5) 

6850 DIMENSION WVtP (5) ,WV(5) ,WDT1R(5) ,WDTt5) ,WB(5> 

6860 DIMENSION YL ( 5 1 ,PHI SPP ( 5 > 
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t, HfO DIMENSION Cf'HIIOP « 0 » .DPTHFOIS) .DPTMFL(51 .BEUP6I5) .NBEUPGI5) 

Ml HO OlMENSlOfi Dl»F.UPG<5> 

6990 UIMLfiOlOH PC IS) .CM (5) .COTI (5) .DELCWI5) .IC(S> f DELCPT<S) 

6900 DIMFN5I0N R0CPSM5) ,CEHV(5> 

6910C 

6920C END OF HEAE/lhTEGl.H/DIMENSIQfl/COMMON DESCRIPTIONS 
6930C 

6990 lF(SYS.Hfc.l.OR.SYS.NE.?>HI)f sHBPI 

6950 IKSYS.Nt .1 ,0H.SYb.NE.2)FUsFUI 

6960 IF <SYS.r;t.l.0R.SYS.NE.2>YM=YMI 

6970 I F ( SYS.M .1.0R.SYS.ME.2)EFPU3EFPUI 

6900 IF (SY$.fHt.l.0R.SYS.NE.2)EFPH=EFPMI 

6990 lF(SYS.Nt.l.0R.SYS.NE.2) FMEDsFMEDI 

7000 IF(SYS.EU.1.0H.5YS.E0.2)FU=l» 

7010 !F(SYS.fcU.1.0R.SYS.F0.2) FMfDsl. 

7020 IF(SYS.E0.1.0R.SYS.fc0.2) YM=YMP 

7030 I F (FU.t 0. 1 . ) HBFs 1 • 

7090 IF(SYS.EU.1.0P.SYS.EQ.2)EFPU=0. 

7050 IF(SYS.F0.1.0R.SYS.EQ.2)EFPH=1. 

7060 RIO=RI(l> 

7070 RIS=RI(SYS> 

7080C 

7090C#»****#»«»* FIRST 'DO' LOOP 
7100C 

7110 DO 2000 TYPE=NBCS«NBC 

7120 R0FPSHTVPE)*R0EPS(TYPE)*M RIS/RIO >»» EE(TYPE) 

7130 PHIPR (TYPl ) =SEX»RIS/2./ETA0/R0EPSl (TYPE! 

7190 PPDEM.-FMEISYS) 

7150 IF (FOE(SYS).GT.PPDE) PPDE*FDE(SY$) 

7160 PHIPP<TYPt»sPP0E*1000.»KP/R0PP$<TYPE> 

7170 PHISPPITYp£)slOOO.»( GK- (GF«KP»FHE (SYS) > > /ROSPP (TYPE) 

7180 IF (PMIPR (TYPE) .GT.PHI PP <TYPE>> PHI (TYPE) =PHIPR (TYPE) 

7190 IF(PHIPP(TYPE).GT.PHIPR(TYPE))PHI (TYPE)sPHIPP(TYPE) 

7200 IF(PHISPP(TYF-). GT.PHI (TYPE) >PHI (TYPE) aPHISP'VTYPE) 


7210 RR(TYPE)=R10*( 2.*ETAD*R0EPS(TYPE)#PHI (TYPE) / <SEX*RIO) ) 

7220 0 »*(1./<1.-LE(TYPE))) 

7230 WVlR(TYPt) =l./( l.-( (ALPHA (SYS)*K.P) )-((!. ♦K)»PHI (TYPE) > ) 

7290 WV (TYPF.) =WV1R (TYPE) *W1 

7250 M)TlR(TYHr>=WVlR(TYPE)-l. 

7260 WDf (TYPE I =V.DT1R(TYPE)*W1 

7270 »i‘l(TYP| )=WV(TYPE)*PHI (TYPE) 

7280C CYCLE LIFt 

7290 IF (NYL.I O.OIGO TO 110 

7300 IF(NYL.FO.I)GO TO 100 

7310 100 YL ( TYPE) =2 . *DP*CL ( TYPE) *ROEPS ( TYPE ) *PHI (TYPE) »E1AD2YM/FU/HBF/SEX 

7320 CO to 1?0 

7330 110 YL(TYPE)=YLl (TYPE) 

7390 120 IF (TYPE. tO. I ) WRITE (16*130) PHI (TYPE) .RP(TYPE) ♦WVIR(TYPE) »WY(TYP£) » 

7350 0 WDT1R(TY(E> »WDT(TYPE) .WB(TYPE) «YL(TYP£) 

7360 130 FORMAT ( 5X » ’BATTERY TYPE LEAD ACID' ♦F10.3»F10.0»F10.2«F10.0* 

7370 6 F10.2.2FI0.0.F7.2) 

7380 IF(TYPE«t0.2)WRITE(16t 190) PHI (TYPE) «RR (TYPE) ♦WVIR(TYPE) ®WV(TYPE> » 

7390 6 W0TIR(TYPE)»WDT(TVPC)«WR(TYPE)»YL(TYPE) 

7900 190 FORMAT (5*» 'BATTERY TYPE:PB ACID A' «F10.3«FlO.O*F10.2*FlO.O» 

7910 6 F10.2.2H0.0.F7.2) 
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7420 IP (TYPE .t0.3)WRITf ( 16. 150) PHI ( TYPE > .HP (TYPE! .WVIRITYPEl .WVITYPFI « 

7430 6 W|)T1R(TYPC ) ,WMT (TVPEI «WlWTYPn .VMTYPt:) 

7440 150 FORMAT (OX, •BATTERY T YPE :M I -2N • »F 1 0. 3 ,f 10.0 »F 10.2 »F 10*0. 

7450 l» F10.2.2MO.O.F7.2) 

7440 IFlTYI'f .10. 4 1 WRITE (16. 160) PHI (TYPE) ,RR(TYPE> .WVlR(TYPE) .WV(TYPE) . 

7 <,70 4 W0T1RITYPH .WDTITVPEI «W« (TYPE) »YL t TYPE! 

7400 160 FORMAT (9X, 'BATTERY TYPEsN I Ffc • »F 10. 3 »F 10.0 «F 10.2 .F1Q.Q.F 10.2 « 

7490 6 2Flft.0»F 7.2» 

7500 IF (TYPE. hU.5) WRITE! 10* l 70) PHI ( TYPE) «RR (TYPE) ,WV IRC TYPE) *WV(TYPE1 » 

7510 0 WOTIF (TYPE) ,WPT(TYPF) .W01TYPE) »YUTYPE) 

7520 170 FORMAT (1 IX, ‘MATTERY TYP£=L S' .F1Q.3,F10.0.F10.2,F10.0»F10.2« 

75 TO 6 2F10.0.F7.2) 

7540 2000 CONTINUE 
7550C 

7560C HEADER FDR DRIVELINE COST 
7570C 

7580 WRITf.ll6.lR0) 

7590 100 FORMAT ( 2* » /// ) 

7600 WRITE ( 16* 190) 

7610 190 FORMAT <2*. 'DRIVELINE COSTS') 

7620 WRITE(16»210) 

7630 210 FORMA T ( 2* » ' PR IMARY • »T 1 7 » ' PRIMARY' «T30« • SECONDARY • 

7640 6 »T4S. 'SECONDARY' .ToS.' TOTAL ' .T84. • INCREMENTAL* »T100. 'EHV' 

7650 6 */.4X»'lYPE'«T19» 'COST • »T33*'TYPE' . T48* 'COST ' 

7660 6 *T60, 'DRIVELINE COST ' . T82 , • DR l VEL I NE COST • «T 100. 'COST • ) 

7670C 

76 ROC »»****»*«*** SECOND 'DO* LOOP 
7690C 

7700 DO 2001 1 YPE=N«CS.NRC 

77 IOC PRIMARY COST PC(TYPE) 

7720 PC (TYPf) 1 ..'V I TYPE > *PH I ( TYPE ) *CP ( TYPE >*( 1 . *DMUP) 

7730 CHCH=(WV(TYPE)*PHI (TYPfc)*ROEPSl(TYPQ)*UBCC*(l.*OMUPI) / 1000. 

77R0C TOTAL DPIVCTRAIN cost CUT 

7760 CDT ( TYPE ) =PC( TYPE) ♦ (WV (TYPE ) *KP*GAEMA ( SYS) ) * ( 1..0MUP) ♦ CSCH 

7760C conventional cost cdto (heat engine*trans) 

7770 CDTO = WVO*KPC* (SPCHE*SPCTRN> » ( 1 .♦DMUP) 

770OC THE INCREMENTAL DRIVELINE COST CDT1 

7790 CDTI (TYPE) =C0T (TYPE)-CDTO 

7800C COST OF AUDIT 100AL WEIGHT OF CAR AT AWCt/LB (0E1.CW1 


7010 DtLCW(TYRfc) =K»PHI ( TYPE ) *Wy ( TYPE) <*AWC* ( 1 .♦DMUP) 

7820 I C ( TYPE ) = C D T I ( TYPE ) -PC ( TYPE )*( 1 ,-BSV (TYPE) ) 

70 30 DELCOT (TYPf.) = IC (TYPE) *DELCW (TYPE) 

7840C CPMFQPs CtNT PER MILE OF EQUIPMENT 

7B50C DR=DI SCOUNT RATE. I R= I NTEMEST RATE 
7H60C NSsPAYBACK PERIOD STRUCTURE <YRS) 

707OC NF = F I MANUAL PERIOD ( YRS) 
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7flnoc 

7890C 

7900c 

79 IOC 
7920 
7030 
794 0 
7960 
7900 
7970 
7900 
7900 
0000 
0010 
0020 
0O1OC 
00^0 
8QSQC 
8060C 
0070 
8000 
0090C 
0100 
0110 
8120 
8 1 30C 
8 1 40C 
815PC 
8160C 
8 1 70C 
0 1 80C 
8 1 90C 
8200 
8210 
8220 
8230 
8240C 
8250 
0260 
8270 
0280 
8290 
8300 
8310 
8320 
8310 
8 340 
8350C 
8360 
8370 
8380 
8390 
8600 


YL«PATTERV |, IFF. ( YRS) 

EVALUATr CHE VS 6 NLPf (IF f(|J)F NOT EQUAL TO 1 RV USER) 

IFfNLOF.Nf .|.) NLOFfi ( 2 . ft(iS<~NF* 1 „ ) / (MS* 1 « ) 

CHFVF>'ii(-u()T(TVPEl * (CCV-CDTO) * ( J. ,*VICT) 

CFHVtTVPhlnCHtVS * PC ( TYPE MM 1 .-BSV ( TYPE) > 

IRF' = ( U-IX1MR 

FFcNF(*|RE/(i.^u.*IRl Mm(-NF) ) 

FFOnFF ft (l>R-in/(l.*|F» 

FFln(U.UR)/(l.«lH 

rRcs-rro / <i.-ffi«*(-n&)) 
r«Ch"-FFO / ( l.-FFl»« <-YL (TYPE)) 1 
CPMEOtMTTPF 1 =0100. /YM* ( <FRCS*NLI>F»CHEVS) ♦ 

6 ( FRCtlft ( l .-»SV(TYf»< ) ) <*WV < T VPf ) *PH I ( TYPE 1 *CP (TYPE) ) > 

Ol’T'lf 0 ( TYi-H ) sOOLLARS PEP I ON MILES EQUIPMENT 
OPTKF:i(TYP| )=CPWF0P(T/PFI/100./(Wl/2000.) 

OPTMFLsDOLLAPS PfR TON MILES ELECTRIC 
DPKWHEs DOLL APS Pf:R KILOWATT HOUR ELECTRIC 
DRTMEl ( TYPE ) = (WV < TYPE > /W 1 > »DPKWHE« ( (FU»FMED«SEXU»ll.-F.PPU) /ETA01 ♦ 
6 ( <lo-FUI«SEXH*(l,-trPH)/ETAD» l/CHEF 

FRCV= FFO / (i. - FF1**(-NSCV) > 
t»FCV=(2.*NSCV-NF*l.) / <NSCV*l.) 

0rMCV=(FHCV»DFCV»CCV«(l o *ST) > / < YM*Wl/2000. > 

LRC = LICENSE ANO RTGI STEP FEE 

FINC = FIXED INSURANCE COST 

ICF s INSURANCE COST FACTOR 

MCMO = MAI NT INF MCE COST PER MILE FOR CV 

MIFHV = MA INI I NANCE IMPROVEMENT FACTOR FOR HYBRIO VEHICLE 

AI>CHVsLRC + F INC* ICF* (CHE VS*PC (TYPE) ) 

AOCCV=LRC*FINC*ICF«CCV 
MCHV=.01 *MCMOftYM» ( 1 .-MIFHV (SYS) ) 

MCCV=.01«MCHC»YM 

NHE'JPG ( TYPf ) =UPTM£0 ( T YPF ) *DPTMEL (TYPE) 
b - OTi'-'C V ♦ (AOCHV-ADCCV*MCHV-MCCV) / ( YM*Wl/2000. ) 

IFlFU.EO. 1 0 )MPC*sMPCiU 

IF (FU.NE • 1 . ) MPCisMPCiUftMPGH / (FUfti-IPGH ♦ ( 1 .-FU) *MPGU) 
SEXHCV=35.2/MPC,/WVOft20OP. 

DTMG = CiPO/MPCi/WI »2000. 

DHEUPG(TYPL)5.03 * ( SEXHCV»WV0/W1 - 
6 MV|R(TYP£)*( FU*FMF p*SF XI)«FFPU / ( F.TAEU*ETAM) *♦ 
b ( 1 .-FU) »SEXH*EFPH /■ (ETAEHftETAM) ♦ 

b FSJ» ( 1 e-FME(j) «SFXU / ( FTAM*ETAru) ) ) 
bFUPGs BREAKEVEN PRICE OF GASOLINF. 
t)EuPG(TYPL) =NHEUPG (TYPE ) /OBFUPG < TYPE ) 

IF (TYPF. tO. I (WRITE (16.220) PC (TYPE) .COT (TYPE) ,CDTI (TYPE) 
b .CEHV(TYPE) 

220 FORMAT <2X, «PB~AC ID’ »T 17. F 10.0. T60.F 10.0 .T8Z.F10.0.T9S.F 10.0) 

IF (TYPE. tO. 2) WRITE (16.230) PC (TYPE) »CDT (TYPE) .COT I (TYPE) 
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«a]jq ? 30 FORMAT (/X.’Pil ACID A’»Tl7,f* >•« *T60 ,F 10.0 *T82 «F > 0,0 »T95 »F 10.0) 
B/.30 II <TYPE.L().3)WRITE(16.240>' <TYPE> .CDT(TYPE) *CDTI (TYPE) 

6440 fc .ClHVITYPf) 

u/,6Q 240 EORMAT (?X. *N1 ZM’.T17iF' .> «T60*F 10,0. TB2 .P 10.0.T9S.F10.01 

0460 IF < TYPF.Mj. 4) WRITE (U.2601PC (TYPE). CDT (TYPE) ,CDTI (TYPE! 

84«0 250 FORMAT <2X,«NI FE • ,T l ? »F 10.0 .T60 *F 10.0 .T82.F 10.0. T95.F10.0) 

8440 IF (TYPF. to. 5) WRITE <14. 260) PC (TYPE) .COT (TYPE) .COT I (TYPE) 

8510 260 FORMAT ( 2X , *L I -S’ .T V «F 10.0 .T60.F10.0.T82 .F10.0.T95.F 10.0) 

8520 2001 CONTINUE 
8530C 

8540C HEADER FOR P.MFAK EVEN CAS PRICE 
8550C 

8560 WRITE! 16.270) 

8570 270 FORMAT ( 2X ., ///) 

8580 WRITE ( 16*280) e<si 

8590 280 FORMAT(?X, .OPERATING COSTS AND BREAKEVEN GASOLINE PRICES* 

8blO 290 FORMAT (T59, ’GAS UKEV * . T70 . ' OPER COST EQ6EL* .T87»*HV GAS-PI 
8620 6 «T 1<>3. ’DRIVE CHAR') 

8to40 300 FORMAT I2X, ’TYPE* .T19» p DELC0T* .T27, ’BATTERY COST • .T40 * • DPTI 

8650 6 *T50. ’DPTMEL' .T61 « ’S/GAL* «T70. ’CTS/MI • ,T80 , • $/YR’ »T90» 

8660 6 ’$/YR* ,T 101 » ’LB/KW’ *T1 12. ’S/KW’ ) 

8670C 

8 6 HOC ******* ******* THIRD ’DO' LOOP 
8690C 

8700 00 2002 TYPEsNHCS.NBC 

8710 GCPMHVsO. 

8720 IF (FU.EO.l.) GOTO 145 

8730 GCPMHVsGPO* (WV (TYPE) /2000.) / (36.63*ETAM) * 

8740 6 ( St XD*tU*FML‘0»EFPU / ETAEU ♦ SEXU*FU* ( l .-FMED) / ETAEU 

8750 f. SLXH* ( 1 ,-FU) *EFPH / FTAEH ) 

8760 145 CONTINUE 


WR I TE ( 16.270) 

270 FORMAT (?X.,///) 

WRITE ( 16*280) „ . 

280 FOR MAT(?X,» OPERATING COSTS AND BREAKEVEN GASOLINE PRICES’) 

290 FORMAT (159^’GAS UKEV ’. T70 ,’ OPER COST E06EL* ,T87 * *HV GAS-PO’ 

6 «T103. ’DRIVE CHAR') 

300 FORMAT 1 2x!’ TYPE' . T 19 . p DCLCDT ’ .T27, 'BATTERY COST' .T40. ’DPTMEO' » 
6 *T50* ’DPTMEL* *T61 « ’S/GAL* . T70 . 'CTS/MI ’ »T80» • $/YR* «T90« 

6 'S/YR* ,T 101 * ’LB/KW’ *T1 12. ’S/KW* ) 


8700 00 2002 TYPEsNHCS.NBC 

8710 GCPMHVsO. 

8720 IF (FU.EO.l.) GOTO 145 

8730 GCPMHVsGPO* (WV(TYPE) /2000.) / (36.63*ETAM) * 

8740 6 ( StXU*tU*FMLO»EFPU / ETAEU ♦ SEXU*FU* ( l .-FMED) / ETAEU ♦ 

8750 f. SLXH* ( 1 ,-FU) *EFPH / FTAEH ) 

8760 145 CONTINUE 

87P0C CALCULATE OPERATING COST PER MILE (CENTS/MI) 

880<) C OPCTEHVs 100.* ( I W 1 /2000 .)*( DPTMEO ( TYPE ) .DPTMEL ( TYPE) ) + 

8Bio 6 (ADCHV*MCHV) /YM ♦ GCPMHV ) 

8820 • CiPCTGs 100.* ( < K 1 /2000 . > * < DTMCV.DTMG) * t ADCCV.MCCV) /YM 1 

8830C * 

8840C CALCULATE TOTAL ANNUAL OPERATING COST <$/YR> TACEHV 
8B50C 

8 0 60 AOPCG:GCP m )iV*YM 

8870 TACt HV = OPCTFHV* (YM/IOO. ) 

8H80 AOPCl OF s f ACFHV-A0PC6-ADCHV-MCHV 

8890 TACC VsOPLTG* ( YM/ 1 00, ) 

8900 AGCC VsDTMfi* ( W1 /2O00. > *YM 

8910 IF (TYPi . tO . 1 ) WRITE ( 16.3101DFLCDT (TYPE) ,PC(TYPF.) .DPTMEO < T YPE) , 

8920 6 DPTMiLdYPF.) .BrUPG ( T YPE 1 . 0 PCTEHV,A 0 PCEDE,A 0 PCG,ALPHA(SYS), 

8930 6 GAMMA (SYS) _ „ M „ 

89^0 310 FORMAT (2Af*Pb~ACID t »Ti5*FlO.O*T;?fY»FlO.O«;379F9o3«T47*F9o3 

8950 6 .T57.F9.2 .T67.F9.2 .T77.F9.2 .T87.F9.2 .T97,F9.2,T107,F9.2) 

8960 IE (TYPE. tO. 2) WRITE< 16. 320) DELCOT (TYPE) , PC (TYPE) .DPTMEO (TYPE! ♦ 

8970 6 DPTMELUYPE) .BFUPG(TYPE) .OPCTEHV .AOPCEQE .AOPCG .ALPHA (SY S> ♦ 

8980 6 GAMMA (STS) _ _ , 

8990 320 FORMAT (2X, ’PB ACID A’*715*F10,0*T26*Fl0.O»T3? .F9.3*T4 t»F9*9 

900C 6 .T57.F9.2,T67.F9«2.T77»F9.2.T87.F9.2.T97»F9»2*T107»F9»2| 
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9010 IF (TYPI .t0.3)WRlTEIl6.330)DELCDT<TYPE) .PC(TYPE) «0PTME0(TYPE» • 

9020 l, DPTMf LHYPH .BEUPGITYPF) .OPCTEHV .AOPCEOE .AOP'G, ALPHA (SYS) « 

9030 6 GAMMA(SYS) 

9090 330 FORMAT <2* » *N1 ZN • .T 1 5 .F 10.0 , T26 .F 10.0, T37 ,F9. 3 .T97.F9. 3 

9050 6 ,T57,F9.2,T67,F9.2,T77.F9.2,T«7,F9.2,T97,F9.2,T107,F9.2) 

*•>060 IF < TYPL.bC. 9) WRITE! 16*390) DELCDT (TYPE) .PC (TYPE) .DPTMEQ(TYPE) * 

9070 0 DPTMFL< lYI’El ,DtUPC,(TYPE> .OPCTCHV .AOPCEOE « AOPCG « ALPHA ( SYS ) « 

9080 0 GAMMA(SYS) 

9090 390 FORMAT<?X,*NI FE • ,T 1 5 »F 10.0.T26.F 10.0.T37 ,F9.3 .T47 .F9.3 

9100 6 ,T57,F9.2,T67,F9.2,T77,F9.2.T87,F9.2.T97,F9.2.T107,F9.2» 

9110 IF(TYPE .fcG.5) WRITE! 16 .350) DELCDT (TYPE) .PC(TYPE) .OPTMEO(TYPE) * 

9120 6 OPTMFL i TYPE) ,»EUPG<TYPE1 .OPETEHV, AOPCEOE .AOPCG. ALPHA < SYS) » 

9130 h GAMMA (SYS) 

9190 350 r09MAT(2X,*LI-S* ,T 1 5»F10.0. T26.F 10. 0 , T37 ,F9. 3 , T97 v F9 . 3 

9150 6 ,T57,F9.2,T67»F9.2.T77,F9.2,T87,F9.2»T97,F9.2»T107*F9.2) 

9 1 1>0 2002 CONTINUE 
9 1 70C 

9180C OUTPUT ENERGY CALCULATIONS IF ECONsl 
9190C 

9200 NTYPE=NBC-rj|)CS*l 

9210 IF (ECON.EO.l) CALL ENCAL (WV (NBCS) »NTYPE) 

9220C 

9230C OUTPUT CONVENTIONAL VEHICLE INFO 
9290C 

9250 CALL CONVP 

9260 RETURN 

9270 ENO 

9280 SUBROUTINE PSECOY(SYS) 

9290C 

9 300C***** »*•**» »«**#»###**#*###*******«*ihhhhh** 4* 

93 IOC SUBROUTINE PSECDY 

932 0C*»*** ****»**#*.#»#*»»«•*#*# **«**«*#»** »*•»*#** 

9330C 

9390 PEAL KPC .OTMG.CDTO 

9350 REAL 1F.LRC-. ICF.MCMO.MlFHV.NLDF.NSCV 

9360 INTEGER I PTO ,NSY «NBC » IPSU.NYL .NSYS.flBCS 

9370 I NTFGFP ICON 

9380 PEAL MPfiU.MPCiCB 

9390 REAL rofrs.rospp.ropps.roepsl.ropll.roes.rhoss.bdpkwh.cp.cl.yli 

9900 RI AL KP »MPGH »K »DP,R I 

9910 HEAL DR , IK , TX .XPR .SWCNT .SWMG.SWCVT .SPCCVT 

9920 REAL IRE 

9930 INTEGER I YPF. .SYS ,T YPE SE , SYSSE 

9990 DIMENSION GAMMA (6) »FDE ( 6 ) .ALPHA (6) 

9950 DIMENSION RorPS«5) ,R0SPP<5) ,R0PPS(5) .R0EPSL(5) .R0PLLI5) ,R0ES<6) 

9960 DIMENSION RH0SSI5) ,DDPKWM(6) ,CP<6) ,CL 15) ,YLI (6) ,EEI5) *BSV (5) 

9970 DIMENSION R I (6) .FMt (6) ,FSS(G) 

9980 DIMENSION M I FHV ( 6 ) 

9990 COMMON / I fl I TV/ I SYS, TYPE .XP.ETAD.W1 ,K .CW.PW.KPC » 

9500 6 5PCHE,TMp,SEXU,SEXH,EFPHl .EFPUI .FUI .BSFCU.BSFCH. 

9510 fc SPCMG.SPCGEN.SPCCNT.SPCTRM.DPKWHE.ETAM.HBFI .sweng.nyl. 

9520 6 SWTRN.AWC.GPO.MPGU.MPGCB.CHEF.MPGH. IPTO.NSY ,NUC* IPSU, 

9530 6 RnrPS, POSPP, POPPS, ROEPSL.ROPLL. ROES. RIIOSS.RDPKMH. CP. Cl .Yl t FF. 
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9540 

9550 

9560 

9570 

9580C 

9590 

9600 


ft FHE*FDE »FS5« YMI »DP«NSYS*NbC$.T YPESE ♦ SYSSEiM «GF»GK»CN» 
fc DR. IR.NS.NF.TX.KPR.SWCVT.SPCCVT . SWCNT . SWMG.SWGEN 
ft .FMF.DI .tTAPP.ECON* IF .NSCV.VICF.NLDF »ST .DMUP.CCV 
ft .MlFHV.LRC.ICF.MCMO.FtNC.UBCC.bSV 

COMMON /INI TM/ SEX »W VO «ETAEU.ETAtH»WDTO .GAMMA »YMP» ALPHA 

COMMON /INITS/C0T0»DTMG«SEXHCV»0PCT6«TACCV»AGCCV»EFPU»EFPH»FU»VM 


96 IOC 

9620 REAL XPS5.MPG 

9630 DIMENSION CLS (4) 

9640 REAL IC.NDEUPG 

9650 INTEGER IYPE 

9660 INTEGER 5YS • 

9670 DIMENSION A<4> .CA(4> 

9680 DIMENSION AL(4) ,CAL(4) 

9690 DIMENSION ALP ( 4 ) »CAlP (4) 

9700 DIMENSION REPSL (4) « PHI PR (4) .PHIPP (4 1 »PPLL(4) .PH IP (4) *YL<4) 

9710 DIMENSION PH 155(4) ♦PHITI4) «RH0S (2) .RR (4) *WVIR (4) «WV (4) 

9720 DIMENSION WDT1RI4) »WDT(4> ,WP(4) *WS(4) 

9730 DIME NS I ON SC (4) .PC (4) «BC (4) »CDT (4) .CPPS(4) »CSPS(4> «CDTI (4) .DEL 

97A0 ft CM4) 

9750 DIMENSION IC (4) .DELCOT (4) .CPMEQPU) .DPTMEL<4) .DPTM(jQ(4) *BEUPG<4) 

9760 DIMENSION Nt3EUPG<4> .DBEUPG<4) 

9770 DIMENSION REPSLK4) »CEHV(4) 

97H0C 

9790C END OF REAL/ INTEGER /DIMENSION STUFF 
9800C 

9010 YMsYM I 

9020 FUzEUI 

9030 HUr=H3FI 

90*.O I.FPUsi FPU I 

9850 E.EPM = i FPHI 

9860 FMEDsTMIDI 

9h70 CLS ( 1 ) =CL ( 1 ) 

9880 CLS ( 2 ) =CL ( 1 ) 

9890 CLS ( 3 ) =CL ( 5 ) 

9900 CLS ( 4 ) =CL. ( 5 ) 

9910C SYS=2 PURL ELECTRIC-P/S 

9920C SYS = 3 SLR I E S-P/S 

99 30C SYS = 5 PAKrLLt'L-P/S 

9940 IF (SYS. E». 2) GO TO 100 

9950 IF (SYS.EU.3) GO TO 120 

9960 IF (SYS. EU. 5) GO TO 140 

9970 100 WHITE(16»110> 
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9980 1 

9990 
10000C 
10010 
10020 
10030 
10090 
10030 
10090 
10070 
1001)0 
10090 
10100 
101 IOC 
10120 
10130 
10190 
10130 
10160C 
10170 
10180 
10190 
10200 


10 FORMAT ( ?-• « 'PUKE STORAGE SPRIMANV AND SECONDARY* «4X« , PH!T* *frX« 

(, *RR • «8X ♦ • WV ll< • *5X» *WV* »8X» *WDT* *7X»*WP*.8X»*WS* »8X» ’ALPHA* ) 

SYS=2 

lF(SYS.t0.2IF0sl. 

1F(F0.FU.1.) HHF= 1 • 

IF(SYS.E0.2)EFPU=0. 

IF(SY5.L0.2)EFPH=1. 

IF (SYS. tO. 2) YM=YMP 
1 F < SYS , to, 2 1 FMED=1. 

00 TO 160 

FORMAT (2xl*SERIES HYBRID (PRIMARY AND SECONDARY* »6X.*PHIT* «6X» 
6 *RR* ,«X,*WVIR* *5X«*WV*«8X» • WDT •»7X»*WP*«8X»*WS* *8X» ‘ALPHA* ) 
SYS=3 
00 TO 160 

150 FORMAT <2x1 ’PARALLEL HYBRID : PRIMARY AND SECONDARY* »4X» *PHIT* «6X. 
t *PR'»8X»»WV1R*»5X.*WV* »8X, *WDT* »7X.*WP*»BX»*WS* »0X. ’ALPHA* ) 
SYS=5 
00 TO 160 
160 CONTINUt 

REPSLll»=ROEPSL(l) 

REPSL(2)=R0EPSL(1) 


120 

130 


10210 

REPSL ( 3 ) sROEPSL (5) 


10220 

REPSL(5)spOLPSL(5) 


10230 

RPLL ( 1 ) sROPLL ( 1 ) 

- 

10250 

HPLL (2 ) S RCPLL ( 1 ) 


10250 

RPLL(3)=ROPLL<5) 


10260 

RPLL(5)=P0PLL<5> 


10270 

R 1 0=R I (1) 


10280 

R1S=R1 (SYS) 



10290C 

10300C* 

1 03 IOC 

10320 

10330 

10390 

10 350 

10360 

10370 

10380 

10390 

10900 

10910 

10920 

10530 

10950 

10950 

10560 

10970 

10580 

10990 

10500 

10510 

10520 

10530 


FIRST 


•DO* LOOP 


170 


DO 2O()0 TYPf's 1.5 

RFPSL1 (IYPl.)=REPSL<TYPfc)*< RIS/R10 ) »*EE (TYPE) 

PHIPR < TYPE) =SLX*KIS/2./ETAD/REPSLl (TYPE) 

PHlPP < TYPL > = 1000.* (CiK - <GF*KPR«FHE (SYS) )) /RPLL (TYPE) 
IF (PHIPP(TYI'L) .GT. PH I PR (TYPE) ) PH IP (TYPE) =PH1PP (TYPE) 

IF (PHI f'K( TYPE ) .OT. PHI PP( TYPE) ) PHI P (TYPE) =PHIPR (TYPE) 
WHOSO ) =f!H0S3 ( 1 ) 

RHOS (2 ) =ROES (6) 

UPSssia -IPHII’ (TYPE) *RPLL (TYPE)/ 1000.)- (FHE (SYS) *KPR> 

IF (XP5S.LT. 0.) KPSS=0. 

PHI 35 ( 1 ) sM’SS* ) POO. /RHOS ( 1 ) 

PHI S3 (2) =KPS3*TfH»/3.6/RH0S(2) 

PHISS(3)=PHISS(1) 

PhI S 5 «5 ) sPHI S5(?) 

IF (SY5.F0.2) GO TO 170 

IF (SYS.L0.3) GO TO 180 

IF (SYS.EO.S) GO TO 190 

A(TYPl ) =ALPHA(SYS) 

IF (TYPt.E0.2.0R.TYPE.E0.5) 

CA (TYPE • sGAFiNA (SYS) 

IF (TYPE. EO. 2. OR. TYPE. EO. 5) 

ALPHSSsI F (TYPF) 


A (TYPE ) sA (TYPE) ♦ (KPSS/KP) *SWCVT 
CA (TYPE) «CA (TYPE) ♦ (KPSS/KP) *SPCCVT 




.,:r^ 
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10530 

10540 

10550 

10560 

10570 

10580 

10500 

10600 

10610 

10620 

10630 

10660 

10650 

10660 

10670 

10680 

10690 

10700 

10710 

10720 

10730 

10740 

10750 

10760 

10770 

10780 

10790 

10800 


AlPHSS’t F(TYPE) 

60 TO 200 

180 At (TYPE.) 3 ALPHA(SYS) 

IF (TYPL.EQ. 2 . 0 R.TYPE.EQ. 4 ) 
CAL (TYPfc ) = 6 AMMA(SYS» 

IF UYPE.EQ. 2 . 0 R.TYPE.EQ.A) 
ALPHSSsAL (TYPE ) 

60 TO 200 

190 ALP (TYPE ) = ALPHA (SYS) 

IF (TYPt.tCl. 2 . 0 R.TYPE.EQ. 4 ) 
C ALP (TYPE) s(>AMMA(SYS) 

IF (TYPt.FO. 2 . OR. TYPE. EQ.*> 
ALPHSS=ALP(TYPE) 

60 TO 200 


AL (TYPE) =AL (TYPE) ♦ (KPSS/KP) «SWCVT 
CAL (TYPE) sCAL (TYPE) ♦ (KPSS/KP) *SPCCVT 

ALP (TYPE) sALP (TYPE) ♦ <KPSS/KP)*SWCVT 
CALP (TYPE) bCALP (TYPE) ♦ (KPS5/KP) *SPCCVT 


200 COM I NUt 

PH IT (TYPE) =PHIP(TYPE) ♦PHISS(TYPE) 

RR (TYPE ) =R 10 * ( 2 .«ETAD*REPSL (TYPE) »PHIP (TYPE) / (SEX»RIO) ) 
t **(i.-/(l.-EE(TYPE))) 

WVlR (TYPE ) = ) ./ ( l.-(ALPHSS*KP)«( < I • ♦<(> *PHI T (TYPE) ) > 
WV(TYPE>=>'l*rtVlR(TYPE) 

WDTIR (TYPE) sWVIR (TYPE) - 1 . 

WDT (TYPt) sWDTIR (TYPE)*Wl 
WP( TYPE )=WV (TYPE) *PHIP (TYPE) 

WS(TYPE>=WV(TYPE)«PHISS(TYPE) 

IF(NYL.LO. 0)60 TO 220 
IF (NYL.tO . 1 )60 TO 210 

210 YL< TYPE! =2. *OP*CLS (TYPE) *REPSL (TYPE) *PHIP (TYPE) *ETAO/YM/PU/HBF/SEX 
60 TO 230 


10810 
10820 
10830 
10840 
10850 
10060 
10870 
10880 
10890 
10900 
10910 
10920 
10930 
10940 
10950 
10960 
10970 
10980C 
10990C 
11000C 
uoio 
11020 
11030C 
1 1040 
11050C 
11060 


220 YL(l)=YLl (1) 

Yl ( 2 ) = YL I (1) 

YL(3)=YLI (5) 

230 IF (TYPI .10, 1 ) WRITE ( 16*240) PMIT (TYPE) *RR (TYPE) .WV1R (TYPE) *WV(TYPE) • 
6 WI)T (TYPE) *WP ( TYPE ) »WS ( TYPE ) .ALPHSS 
240 FORMAT ( 1 7X* ‘U AH ACID/LFAD AC I D' ,F 1 0 . 3 *F 10.0 .F 10.2 .4F 10.0.F10.2 ) 

IF ( TYPE.E0.2) WRITE ( 16,250) PMIT (TYPE) «RR (TYPE) *WV1R (TYPE) .WV(TYPE) • 
6 v.'DT (TYPE) *WP I TYPE) .WS(TYPE) .ALPHSS 
250 FORMAT ( 17X, ‘LEAD ACID/FLYWHEEL • «F 10. 3 *F 10.0.F 10. 2 *4F 10.0»F 10.2) 

IF (TYPE .LO. 3 ) WRITE (16.260) PHI T (TYPE) ,RR ( TYPE ) *WV 1R (TYPE) .WV(TYPE) » 
fc WOT (TYPE ) *WP (TYPE ) .WS(TYPE) .ALPHSS 
260 FORMAT ( 19X « *Ml TF.MP/LEAO ACID 0 .F10.3.F10.0.F 10.2. 4F10.0.F10.2) 

I F ( TYPE .F0.4 ) WR I Tt ( 16*270) PMI T (TYPE) *RR (TYPE) *WV1R (TYPE) .WV(TYPE) » 
(, WDT (TYPE) *WP ( TYPE) .WS(TYPE) .ALPHSS 
270 FORMAT ( 20X « 'Ml TEMP/FLYWHEEL • »F 10. 3«F 10*0 .F10.2 *4Fl0.0*F10.2) 

2000 CONTINUE 

HEADER FOR DRIVELINE COST 

WRITE ( 16,280) 

280 FORMAT (2X,///) 

ECONOMIC MODEL 
CPPS(1)=CP(1) 

LEAD acid 

eppsmsrpm 
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11070C 
UOriO 
11090C 
11100 
11U0C 
11120 
11130C 
11160 
111S0C 
11160 
111 '0 
nieo 

11190 
11/00 
11210 
11220 
11230 
11260 
11250C 
1 1260C* 
11270C 
11280 
11290 
11300 
11310 
11320C 
11330 
11360 
11350C 
11360 
11370C 
11380 
11390C 
11600 


LEAD acid 
CPPS13)=CP15) 

Cl S 

CPPS16) =CP(S) 

Ll S 

cspsin =cp<i> 

LEAD ACtD 
CSPS( 2 )=CP( 6 ) 
FLYWHEEL 
CSPSC3)=CP(1) 

CSPS16) =CP <6) 

WRITE U<>» 290 ) 
FOP^AH/Xt'DRlVELlME 


290 


COSTS') 


SECOND 'DO' COOP 


DO 2001 TYPE= 1,6 

IF (SYu.E0.2)GAI* , MSSsCA(TYPE) 

IF (SY5.tO»3>GAMMSS»CAC (TYPE) 

IF(SYb*tQ.5) GAFM5S*CACP (TYPE) 

> / 1000 . 

S !o T?PeI -SvaVPF. ) *PHI SS ( TYPE) ACSPS 1 TYPE) * 1 1 .*DMUP) 

BATTERY COST DC 
BC1TYPF) sPCITYPE) 

^CDt'iTYPMsPO TYPE? ♦SO TYPE) * (WV (TYPE) *KP*6AMM$S) * 1 1, ♦DMUP) 


11610 
U620C 
11630 
1 1660C 
1 16!*0 


loNVENTIUKAC COST CDTO (HEAT ENGINEjoTRANS) 

COTO=>;VO*KPCiMSPCHE*SPCTRN)Ml.*DMUP) 

rHE INCREMENTAL DRIVELINE COST CDTI 
COT l 1 TYRF) S C 0 T <TYPF)“ r r>Tn 
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11450 CDTI (TYPE)«CDTITVPE)-COTO 

11460C COST OF ADDITIONAL WEIGHT OF CAR AT AWCt/LB 
11470 DELCW(TYPE) =«C«PMIT ( TYPE ) *WV ( TYPE) *AWC« (l.*DMUP) 

11480 1C ( TYPt>=COT It TYPE >-BClTYPE»*(U-BSV< TYPED 

11490 OELCDT t T YPE ) sIC (TYPE! *DE lCW(TYPE) 

l 1500C 

115 IOC EVALUATE CHE VS fc ML OF (IF MLOF NOT EQUAL TO 1 BY USER) 

U520C 

11530 IFINLDF.ME.I.) NLOFs (2.*NS-NF* 1 . ) / (NS* 1 . ) 

11540 CHEVS=r>FLCDT (TYPE) ♦ (CCV-CDTO) * ( 1 .*VICF) 

11550 CtHV (TYPE) ?CHEVS ♦ BC ( TYPE )*( 1 .-BSV ( TYPE) ) 

11560 IRE=(K-TX)*1R 

11570 FF=NF»I«E/ ( 1 .- » l.*IRE)**(-NF) ) 

11580 FFO = FF * (Di<-IF)/(1.*IF) 

11590 FF 1 a <l.*[)R)/(l.*IF> 

11600 FRCSsFFO / ( l.-rFl**(-MS) ) 

11610 FRCO=FFO / ( 1 .-FF 1** (-YL ( T YPF ) ) > 

U620 CP'-'EOP ( 1 YPE > =0100./YM* ( (FRC5*NLDF*CHEV$> ♦ 

1 1630 0 (FRCU* ( 1 .-OSV ( TYPE) ) *l'C (TYPE ) ) >* ( 1 • ♦ ST ) 

1 1640 OPTMLOl TYPE) aCPMEOP (TYPE) / 100./ (Wi/2000.) 

1 1650C DP<WHC:PULLAPS PER KILOWATT HOUR ELECTRIC 

11660C OPTMFLsOULLARS PER TON MILE ELECTRIC 

11670 DPTMf.L t TYPE ) 8 (WV (TYPE) /W1 ) *DPKWHE* ( (FU»FMED»SEXU» ( l.-EFPU) /ETAO) ♦ 

11680 0 ( ( 1 .-FU) *SEXM» ( 1 .-FFPH) /F.TAD) ) /CHEF 

11690C 

11700 FRCVa F F 0 / ( l .-FF 1«* (-NSCV ) ) 

11710 OFCVa (?.*NSCV-NF*l.) / (NSCV*l.) 

11720 OTMCVs (H<CV*OFCV*CCV» ( 1 »*ST ) ) / (YM*Wl/2000.) 

11730C 

11740C LHC S LICENSE AMO REGISTER FEE 
1 1 750C F INC a F IXEU INSURANCE COST 
11760C I CF a INSURANCE COST FACTOR 
1 1 770C MC MO a MAIM I INEMCE COST PER MtLE FOR CV 

1 1 780C MlFHV a MAI NT I NANCE IMPROVEMENT FACTOR FOR HYBRID VEHICLE 
11790C 

llfiOO ADCHVaLRC*F INC* ICF«(CHEVS*BC (TYPE) ) 

11010 AOCCVaLRC*FINC*ICF»CCV 

11820 MCHV=.0l*MCt'O»YM»(l.-MIFHV(SYS) ) 

11830 MCCVa.01*MCM0*YM 

1 1B40C 

11850 NBC UPC. ( TYPE) aOPTMtO( TYPE) *OPTMEL (TYPE) 

11860 6 - DTMCV * I ADCHV-AOCCV*MCHV-MCCV) / ( YM*W1 /2000. ) 

1 1 870 IF (FU.EO. 1 . ) MPC.aMPGO 

11880 I F (F U, Nt . 1 , > MMC,aMPOU*MPC.H / (FU*MPGH ♦ ( 1 .-FU) *MP6U) 

11890 SFXHC V® 35. ? /MPlj/ W1 » 2 000. 

11900 DT m Ci = (.PU/MPC./W1*2000. 

11910 DBFUPG( IYPS.I a. 03 * ( SF XllCV«WVO/Wl - 

11920 h WV 1R ( TYPE ) * ( FU**FMED*SEXO»I.FPU / <ETAEU*ETAM> ♦ 

11930 t (l.-FO»*SEXH*EFPM / (FTAEH*ETAM> ♦ 

11940 t r UM 1 »“FMEU) *SEXO / (ETAM*ETAEO) ) ) 

11950 BEUPG (T YPE) afU>EUPG( TYPE) /DBF UPG( TYPE) 

11960C BEOPG- FREAK FVEN UNIT PRICE CF GASOLINE 

U9T0 ! F t T YPF .t 0. I > WR 1 Tt ( 16 » 320 > PC ( T YPE > »SC ( TYPE > .COT ( T YPE ) »CDT I WP6) 

11980 6 .CEHVlTYPE) . „ „ „ 

11990 320 FORMAT (2X* • PB^ACID* »T17»F10.0»T30» •PB-ACID* ♦T45*F10»0«T60*F10*0* 

12000 & T82.T 10„0,T95.F10.0) 
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12010 IFITVPf .(0.2) WRITE <16. 330) PC (TYPE) .SC (TYPE) .COT (TYPE) .COTI (TYPE) 

12020 b .CEHV(TYPE) 

12030 330 FORMAT < 2X, 'PB-AC ID*. T17. F10.0.T30. 'FLYWHEEL*. T4S.FIO.O.T60.F 10.0 

12040 6 Tfi2,f 10. 0.T95.F10.0) 

120S0 IF ( TYPE'. LO. 3) WR 1 TF. 1 16.340) PC (TYPE) .SC (TYPE) .COT (TYPE) .COTI (TYPE) 

12060 6 .CFHV(fYPE) 

12070 340 FORMAT(2X,«LI-S'.T17.F10.0,T30.«PD-ACID , .T45.F10.0,T60.F10.0. 

12000 b TP2.F10.0.T9S.F10.0) 

12090 lF(TYPF.F0.4)WRlTt(16.350)PC(TYPE) .SC(TYPE) .COT(TYPE) .COTI (TYPE) 

12100 b .CEHV ( TYPE) 

12110 350 FORMAT (2X. 'LI-S' »T 17. F10.0.T30. 'FLYWHEEL* .T4S.F10.0.T60. 

12120 b F10»0.f82.F10.0.T95*F10.0) 

12130 2001 CONTINUt 
12 140C 

12150C HEADER FOR WREAK EVEN GAS PRICES 
12160C 

12170 WR I TE ( 1 6 . 360 ) 

12 ipo 360 format ( 2x « /// i 
12190 WR I T(' ( 1 6 . 370 ) 

12200 370 FORMAT <2X, 'OPERATION COSTS AND BREAKEVEN GASOLINE PRICES') 

12210 WRITE' ( 16.380) 

12220 380 F0RMAT(T59.'GAS BKEV ,T7o. 'OPER COST EG&EL' «T87.'HV GAS-PO' 

12230 b .T103. ’DRIVE CHAR') 

12240 WR I Tt ( 16 » 390) 

12250 390 F0RMAT(2X. 'TYPE*. T19.'DELCDT',T27, 'BATTERY COST' .T40. 'DPTMEQ' . 

12260 b . T50 . 'OPTMEL * .T61 ♦ • S/GAl ' .T70. 'CTS/MI • .T80. 'S/YR* «T90. 

12270 6 'S/YR' .T101. 'LB/KW* .Tll2.'S/KW') 

12280C 

1 2 290C ******** ******* THIRD 'DO' LOOP 

12300C 

12310 DO 2002 TYPE* 1 .4 

12320 IF(SYS.E0.2) GAMMSS=CA(TYPE) 

12330 IF ( SYS.EO. 3) GAMMSS=CAL (TYPE) 

12340 I F ( SYS. EO. 5 ) GAMMSS-CAlP < TYPE) 

12350 IF (SYS.EO. 2) ALPHSS=A (TYPE ) 

12360 -1 F ( SYS.EO. 3 ) ALPHSS=AL < TYPE > 

12370 IF ( SYS.EO. 5 ) Al.PHSSsALP ( TYPE ) 

12380 GCPMHV=0» 

12390 IF (FUoEO.l.) GOTO 145 

12400 GCPMHVsGPO* (WV(TYPE')/2000.)/(36.63*ETAM) « 

12410 b ( 5CXU»FU*FME0*EFPU / ETAEU ♦ SEXU*FU* ( l .-FMED) / ETAEU ♦ 

12420 6 SCXH* ( 1 *-FU) *EFPH / ETAEH ) 

12430 145 CONTINUE 

12440C 

12'»50C CALCULATE OPERATING COST PER MILE (CENTS/MI I 
12460C 

12470 OPCTEHV 1 100.* ( ( Wl / 2000. ) * (DPTMEQ (TYPE) ♦DPTMEL (TYPE) 1 ♦ 

12480 6 ( ADCHV+MCHV) /YM ♦ GCPMHV > 

12490 OPCT Gs 1 00. * ( ( W 1 /2000. ) * (DTMCV*DTMG) ♦ ( AOCCV*MCCV) / YM ) 

12500C 

12510C CALCULATE TOTAL ANNUAL OPERATING COST (S/YR) TACEHV 
12520C 

12530 AOPCG=GLPMHV»YM 

12540 TACEHV=OPCTEHV*(YM/lOO.) 

12550 AOPCf: (Jt = T ACEHV-AOPCG-ADCHV-MCHV 

12560 TACCVsOPCTG* ( YM/ 100. ) 

12570 AGCCV=DTMG*(W1/2000.)*YM 

*2580 IF ( TYPE.FO.i) WP|TE( 16.400) DELCDT (TYPE) .BC(TYPF) .DPTMEQ (TYPE) . 
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12590 4 DPTMEUWPE) «BEUPG(TYPE) * OPC T EHV , AOPCENF. * AOPCG , ALPHSS « GAMNSS 

12600 400 FORMAT (2X» # P0“ACID' •TI3»F10*0»T26»F10,0»T3T »F9,3,T47 ,F9,3 


12610 6 ,TS7,F9.2,T67,F9.2.T77,F9.2,TH7,F9.2,T97,F9.2,T107,F9.2) 

12620 IF (TYPE .10.1) WRITE (16.4101 

12630 410 FORMAT (2X, 'PIJ-ACID* ) 

12640 IF(TYPE,fO,2)WRITF( 16 *420) DEI.COT (TYPE I ,BC(TYP£> .DPTMEQ(TYPE) » 

12650 6 DPTFTLUYPF.) .BfUPfilTYPI ) ,0PCTEHV,A0)'CEOE»A0PC6,ALPHSS*GAMMSS 

12660 420 FORMAT (2X* *Pl»-AC ID' »T 1 5 »F 10,0»T?6»F10.0»T37»F9.3»T47 ,F9.3*T65 

'.2670 6 ,T57,r9.2,T67,F9.2»T77,F9.2,T87,F9.2,T97,F9.2,T107,F9.2) 

12680 IF < TYPF ,FQ,2) WRITE! 16,430) 

12690 430 FORMATUX, 'FLYWHEEL') 

12700 IF (TYPr. 10.3) WRITE ()6,440)DELCUT(TYPF),BC (TYPE) »DPTMEQ(TYPE), 

12710 6 DPTREL<TYPE) ,(M:UPGCTYPF.) ,OPCTEHV,AOPCEOE»AOPCG, ALPHSS, 6AMMSS 

12720 440 FORMAT (2X» 'LI-5/P0-ACID' ,T15,F10.0,T26,F10,0»T37,F9»3,T47,F9,3 

12730 6 ,T57,F9.2,T67,F9.2,T77,F9.2,T87,F9,2,T97,F9.2,T107,F9.2) 

12740 IF(TYPF.E0.4)WRITE(16,450)DELC0T (TYPE) ,BC(TYPE) ,OPTM£Q (TYPE) * 

12750 6 DPTSFL(TYPE) »BEUPG(TYPE) »opctehv»aopceqe»aopcg»alphss»gamm$s 

12760 450 FORMAT (2X, »L I-S* ,T15,F 10,0, T26,F10»0,T37»F9. 3, T47,F9.3 

12770 6 ,T57,F9,2,T67,F9.2,T77,F9.2,T87,F9,2»T97»F9,2,T107»F9,2) 

12780 IF (TYPE»EO ,4) WRITE (16,460) 

12790 460 FORMAT (2X, 'FLYWHEEL* > 

12000 2002 CONTINUt 

128 IOC 

12820C OUTPUT ENERGY CALCULATIONS IF ECONsl 


12B30C 

1 2 040 NTYPES4 

12R50 IF (ECON.EO.l) CALL ENCAL (WV ( 1 > ,NTYPE) 

12H60C 

12B70C OUTPUT CONVENTIONAL VEHICLE STUFF 
12H00C 

12090 CALL CONVP 

12900 RETURN 

12910 END 

12920 SUBROUTINE ENCAL (WV,NTYPE) 

12930C 

12940C»*«****»»«»» ,, «»* ,H ‘** , ** ## * < "*************** 

12950C SUBROUTINE ENCAL 
^2960C*** ,, *** ,, * ,, *»**••*•*• ************* ,, ***'"* ,, * 

12970C 

12980 DIMENSION WV(1) 

12990 Rf AL KPL,DTMG,COTO 

13000 INTEGER I PTO*NSY,NBC« IPSU,NYL »NSYS,NBCS 

13010 INTEGER FCON 

13020 REAL MPGU,MPGCB 

13030 REAL ROtPS,ROSPP,ROPPS,ROEPSL,ROPLL,ROES,RHOSS,BDPKWH,CP,CL»YLI 

13040 REAL KP,MPGH.K,DP,RI 

13050 REAL DR » I R , TX ,KPR , SWCNT , SWHG , SWCVT , SPCCVT 

1 3060 real ire 
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uoto 

13080 

13090 

13100 

13110 

13120 

13130 

13190 

13150 

13160 

13170 

13160 

13190 

13200 


RIAL IF.LRC.ICF.MCM0.MIFMV.NLDF.NSCV 
INTEGER TYPE.SYS.TYPESE.SY 

DIMENSION RH0SS<5> ,0DPKWH<6> .CPi6) .CL<5> .YLI (61 .LfcOl 
DIMENSION R1 (6) .FHE(6) .FSS<6) 

COMMON^ 'l TV/SYS .TYPE. KP.ETAD.W1 .K .CW .PW .KPC . 

, Dr ,.. IMP SEXl). SEXH.EFPHl »Lf PUI »FUl oBSFCU.HSFCH. 

/ SPCMCi'bPCGEN.SPCCNT .SPCTRN.DPKWHE .ETAM.HDF 1 » SWCNG.NYL . 

L IKS .SoSo.MPGU.^ 

b ROEPS.KOSPP.KOPPS.ROEPSL.ROPCL.ROES.RHOSS.ODPKWH.CP.V.L.YLI.EE. 

t DR« IR^NS.NF.TX.KPR .SWCVT .SPCCVT .SWCNT .SWM6.SWGEN 


13210 

13220 

13230C 

13290 

13250 

13260C 

13270 

13280 

13290C 

13300C 

133 IOC 

13320 

13330 

13390 

13350 

13360 

13370 

13380 

13390C 

13900 

13910 

13420C 

13430 

13440C 

13450C 

13960C 

13470C 

13980 

13490 

13500 

13510 

13520 

13530 

13540 

13550 

13560 

13570 

13580C 

13590C 


b .FMCCI.ETAPP.ECON.IF.NSCV.VICF.NLDF.ST.OMUP.CCV 

t, .MIFHV »LRC . 1CF .MCMO.FINC.UBCC.BSV 

gS5 

FMEDsFMtDl . , 

IF ( SYS.tQ. 1 .0R.SYS.EQ.2) FMED»l. 

END OF RFAI/INTEGER/DIMENSION/COMMON STUFF 

WRITF.U6.95) 

95 FORMAT ( 2X »/// ) 

«l1m2vu!/So!hM SEXU*FMED» ( 1 .-EFPU) / (CHEF*ETAD*ETAPP) ) 

DLGLUs (WV ( 1 ) /2000. » * ( SEXU4FMED4EFPU/ ‘ETAM*ETA|U) ♦ 
t SEXU* ( 1 .-FMED) / (ETAM*ET AEU) ) - 36.63/MPGU 

0LG6U=DLGLU*FU*YM / 36.63 

IF SYS- 1 OR 2 THEN NO CALC FOR HIGHWAY 
EELH=0. 

dlglh=o. 

DlCiCjHsO© 

;!»? , .chef..™...™.. > 

DlGLHs ( wV(l)/2000.1* (SEXH*EFPH/(ETAM«ETAEH)> - 36.63/MPGH 
OLOGHsDLGLH* ( 1 .-FU) *YM / 36.63 
200 CONTINUt 

CEUMsEF'-U*DLGLU 

CfcHMsEECH.DLGLH 


2=-30 
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13600 

lif in 105 

13620C 

IJ610 1000 CONTINUE 
1366 0 RETURN 

13650 END 

13660C 
I3670C 


1 T l ( 16 , 1 0 6 ) CEUM « CEHM • DLGGU »OLGGH 

FORMAT (125 *F 10*3 »T60«F 1 0,3* T55»FB, l »T70*F8*1) 


I 36 IIOC BLOCK DATA S U B P R 

13600C *******»•****#*•**»*«**»«*• 


l* ***** 

0 G R A 


13710C TO SET UP INITIAL DEFAULT VALUES 


13720C 

1 3730C 

13760 

13750 

13760 

13770 

13700 

13790 

13800 


6/30/79 


BLOCK DATA 

real kpl,dtmg*CDto 

rcal if,lrc,icf,mcmo»mifhv,nldf,nscv 
integer ipto,nsy,nbc»ipsu,nyl,nsys,nb.s 
INTEGER ECON 

real ROtPS«ROSPP»ROPPS»ROEPSL»ROPLL*ROES»RHOSS»BDPKWH»CP»CL«YLI 


13010 

13820 

13030 

13060 

130 50 

13060 

130 70 

13000 

13H90C 

nQnot»»»« 

13910C**** 

1 3920C**** 

1 39 30C***** 

1 3960C**** 

1 3950c 

13960 
13970 
13900 
1 3990 
16000 
16010 
16020 
16030 
16060 
160S0C 
1 6060 


REAL KP*PPGH,K»YM»DP»RI 

REAL PR*IR«TX.KPR»SWCriT»SWMG*SWCVTtSPCCVT 
INTEGER TYPt * SYS* TYPE SF bSYSS£ 

DIMENSION GAMMA ( 6 ) bFOE ( 6 ) • ALPHA ( 6 ) _ , .<.1 r*„ c 

DIMENSION R01.PSC5),R0SPP<5)*R0PPS(5)*R0pSL 5>*R0PLL 5KR0ES16) 

DIMENSION RH0SS15) ♦B0PKWH(6> »CP<6) *CL(5) »YLI (61 «EE15> «BSVI5> 
DIMENSION R I ( 6 ) »FHE ( 6 ) ,FSS< 6 ) 

DIMENSION MIFHV ( 6 ) 


COMMON BLOCKS ARE SET UP FOR USE IN THE SUBROUTINES 
SEHYPR, CONVP* PR1MRY, PSFCDY, ENCAL 

CO m mon "INI TV" RFFERS TO VARIABLES FROM INPUT DEVICt 

COMMON "INITM" REFERS TO VARIABLES INITIALIZED IN MAIN 

cSmS -IfllTS- REFERS TO VARIABLES INITIALIZED IN SUBROUTINES 


COMMOJI / INI TV/SYS, TYPE, KP,FTAD, Ml, K, CM, PW.KPC, 

sPcur.,iMP,sExu,srxH,Fn>Hi , efpui ,fui,bsfcu,bsfch» 

5 SPCMC,,SPCGFN,5PCt NT *SPCTRN»DPKWHI: ,ETAM,HBF I ,SWENG,NYL» 
f, SMTRN , AWC , GPU, NPGU, MPGCB , CHfF ,NPC.H, IPTO,NSY ,NBC , IPSU, 

. ROEPS,HOSPP,ROl , PS«ROErSL ,RUPLL ,RUF.S,RHOSS,Bl)PKWH»CP,CL ,YLI »EE» 
r, FHE ,rot,FSS,YMl ,DP»NSY5,NBCS» T YPESE ,SYSSE *R I ,GF,GK,CM» 

6 DR , IR,NS,NF, TX,KPR,SWCVT ,SPCCVT ,SViCNT ,SWM6,SWGEN 
ft ,FMLI*1 ,1 TAPP ,rCON, IF , f ISC V, VICE ,NL9 F ,st .DMUP.CCV 
6 , M | E MV ,LRC , I CF ,MCMO , F I NC ,UUCC ,BSV 


"DMMON / 1 MI TM/Sl'X ,WVO»FTAt u,ftach»woto»gamma»ymp» alpha 
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1*0 to 

l/*nuoc 

16090 

16100 

16110 

16120 

16130 

16160 

16150 

16160 

16170 

•16100 

16190 

16200 

16210 

16220 

16230 

16260 

16250 

16260 

16270 

162H0 

16290 

16300 

16310 

16320 

16330 

16360 

16350 

16360 

16370 

16300 

16390 

16600 


16610 

16620 

16630 

16660 

16650 

16660 

16670 


$ 

$ 

% 


COMMON /INITS/r oiU.Df.Ki.Sf XHC V.CPCTG.TACCV.AGCGV.EFPU.EFPM.FU.YM 

DATA RQfcP5 /1«., 27. ,30.. 30. .60./ 

DATA RQIiPP /65. *65.. 00. *65. *60./ 

DATA RDHP5 /06. .75. .90* .00. ,00./ 

DATA ROLPSL /20. *30. *33. .33. ,05./ 

DATA RQPLL /65. ,66. *05. *65. *65./ 

DATA R0t5 /Q.,0.,0.,0.,0.,7./ 

DATA RHOSS / 160. ,200. . 100. .60. ,80. / 

DATA OPPKWH /50. *50. *60. »60**60.i600./ 

DATA CP /O. 96*1. 65*1. 8*1. »*2. 1.2. 8/ 

DATA CL /BOO. *000. .500. *1500. *800./ 

DATA YLl /5.. 5. ,3. *6. *5. *10./ 

DATA EC /. 26*. 26. .15*. 18, .20/ 

DATA DSV /5* • 10/ 

DATA M I FHV /. 25, .25*. 25*. 25*. 25*. 25/ 

DATA R! /75. , 75. .35. *35. .35. *35./ 

DATA FHt /O. ,0. ,.33*. 60, .60, .33/ 

DATA FDt /l.*l.«l.«.6*.6,l./ 

DATA FS5 /6*0./ 

DATA CW*PW*KP*Wl /2150. *300. *0.028*2650®/ 

DATA LTAP.ETAPP Z.80,.35/ 

DATA AWL *K , Ylil *FUI *FM( Dl .SEXU.SFXH / .62 » *3 * 1 1852. * .65* .75*. 12 «• 127/ 
DATA fcFPUl.EFPHI.DPKWHE.CiPO / .25 * .90 » .062 * 1 .0/ 

DA r A SPCMCi * SPCGC N , SPCCNT /20..8..6.7/ 

DATA HPF I *CHEF,('SFCU»DSECH,TMP / 1 .2 * .75* .55 * .60*30./ 

DATA DR. IR,r;S.UF,TX /.09..12* 12. 6, .25/ 

DATA IF ,5T .DMUP.NLDF /. 07*. 05, .3,0./ 

DATA KPUSWENG.SWTRN / .028.6. * 1 .2/ 

DATA SPCHE,SPCTRM*HPGU /lOv*2.5*22./ 

DATA MPGH.MPGCB.CCV.NSCV /32. ,26. *5700. « 10./ 

DATA MCM0.LRC.FINC.1CF /2.. 35. *125. *.01/ 

DATA ETAM.VICF.ECON /O. 9, .05*1/ 

DATA NBCS.NBC.NSYS.NSY /l *5, 1*6/ 


DATA 5WCMT,SWMG*SWGEN,UHCC /I .5 * 10. *6. , 16./ 
DATA CM.NYL /2..1/ 

DATA SYSSL.TYPESE /6.1/ 

DATA iPTO.IPSU / 1 * 1/ 

DATA SWLVT.5PCCVT /2.25.3.3Z 
DATA 6F.6K.KPR.DP /.7 ,.0i 1 *.03 * .8/ 

END 


NOTE FILENAME LD5DATA 

NOTE LABELS- ASIS,R<L8> 

NOTE TADS/SETTNGS- ASIS 


•V4 


2=32 
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Section 3 

HYBRID VEHICLE SIMULATION PROGRAM (HYVEC) 

3.1 HYVEC DESCRIPTION 

This section contains a description and listing of the compu- 
ter program that was used during Phase I to simulate vehicle opera- 
tion. 

The computer program (HYVEC) was developed to simulate second- 
by-second operation of the hybrid vehicle over urban and highway 
driving cycles. The program was used extensively in the Design 
Trade-Off Studies (Task 2) to evaluate in depth the hybrid power 
train configurations which were identified as the most promising 
in the first screening. HYVEC was also used in the Preliminary 
Design Task (Task 3) to update the hybrid vehicle energy-use and 
performance using refined component characteristics and vehicle 
weight projections. A complete listing of the program is given in 
Section 3.2. 

A schematic of the HYVEC calculation procedure is shown in 
Figure 3.1-1. As indicated in Figure 3.1-1, the calculation for 
a particular driving cycle is performed starting at the wheels and 
working from component- to-component through the power train until 
the fuel and/or electricity needed to drive the vehicle for each 
increment of time is determined. 

Detailed models based on experimental data and analysis are 
used for each of the power train components. For the electric 
drive system, motor voltage and current are determined and used 
as inputs to a battery model which describes the battery in terms 
of terminal voltage as a function of battery current and state-of- 
charge. Battery state-of -charge is expressed as the ratio of the 
Ah- used co the cell Ah capacity at the time-averaged discharge 
current. All the electrical power train components are modeled 
using scaling factors which permit the component sizes (ratings) 
to be changed without altering the basic inputs to the program. 

The electric motor is described in terms of its continuous rated 
power, base speed, and nominal rated voltage and flux. The bat- 
tery is described in terms of cell Ah-rating at the C/3 rate and 
the number of cells in each battery module (i.e. , nominal battery 
voltage) . 

The mechanical driveline components, the heat engine and trans- 
mission, are modeled in a conventional manner. The heat engine is 
described by its maximum power and rpm. Fuel consumption and emis- 
sions characteristics are input as maps of bsfc and bsem (brake 
specific emissions - HC r Co r No x , particulates) as functions of 
percent speed and percent of the maximum power at that speed frac- 
tion. The mult.ispeed gearbox transmissions are described in terms 
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. . -i p n : in the various gears and the pump— 

tto gearbox is hydraulically shifted. The steel-belt 

CVT is described in terms of the max i“^J^ u ^ n i°? u 2S n q losses are 
the maximum overdrive speed ratio. Friction and pumping ios-o 

combined into a single, speed dependent loss term f 


descri^d'^ii^nvvF^b^a^series^o^statements^which^specify 3 under 

wha^conditiona^the^engine is on^ what f raction of the ^r re^ 

vehicle was 'a Ky P«t of the Phase I study and the HYVEC program 
was an important tool in that development 


The HYVEC program was also used to calculate the 
acceleration performance of the 

s-r 

th e U power^availabie^at Senate vehicle speeds The maximum power 

maximum poSe? ^StM^^^rovide be«o~» smaller^ “ex™ 
effort acceleration calculations at specified levels or bate y 
state-of -charge can be made with HYVEC. 
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3.2 HYVEC LISTING 


IOC 

20c 
soc 
6 0C 
70C 
100 
1 10 
120 
130 
l4() 
ISO 
160 
170 
180 
190 
200 
210 
211 
220 
230 
240 
2 60C 
260 
270 
280 
290 
300 
310 
320 
330C 
340C 
350 
360 
370 
3fiO 
390 
400 
410 
420 
430 
440 
450 
460C 
4 70 
480 
490 
500C 
510 
520C 
530 
540C 
550 
560 
570 
580 
590C 
600 
6 IOC 
620 
630 


********** HYBRID VEHICLE. PERFORMANCE SIMULATION PROGRAM ************ 

INCLUDE HYPR1 
INCLUDE MYPK2 

NAME.L 1ST / I N/5*CD* AF *NF<* IF 1 L 2 • DC ME i * W F- M X • I F I L • C F | F .CAfcF ♦ TSb * 

6 WMMX *PT • C'WHl *Rl CiEN.NCYC *MTYM*VE C^N ♦ VM( MN*MV*VWl ND*CHCiREF * 

6 LKMX,HK *DTYP*TTYP*OPRT*OC I * I PPTS *W I OLtM *CPOL 1 * I ESI 2 ♦ 

6 CT YP *CiKf‘ , t TYP * 55 VF L * I DOWN * DC TYI’ *D I bT * VMODE .NT^TR *BCEFF * 

6 K P * PFL *F’FM*PFFrt *MFB*r SP*TSP*?AbP*KOL *CROl *CR0L2 t I ACCFL * IF I u 3 * 

6 C SP *TF WP *EWSF *MFPT *MC HPJ*ME»L *K*P *K TP *WF WMX * A TEMP ,RHOF * I M 1 * 

6 ACT YP%1 TAN* I PS* I AlT* I AC « IWP*DT T YP *f>RAT * I E5F . JWHL * I TR 1 P * 

6 K I DLF *W I DLL *E STRT * SHIFT •SHIFT A *(,R ATS *NTM « JF.NG * JMTR « W I OLE A * 

6 FPCP* It( ON « ttCVAL * I PUT *OSFC *BbPC *FDCMXR *HCMXR «USPM *HStN 

6 *PFMX * SPFR «|:F()NOX *t.F OHC*f F'OC 0*CTCT *TCHWQ*fcTON *CTOF *SPFRA 
6* l AUF « I AON * I T C D % I VAC * TSENG * WbF *QHh AT *CCONST * IE AT * I HD *PTLObS * 

6CWk *CFF « IF ■• , .pFLObS*SNFV. *RSb*PHFMAX*JACCFL*CCC*SACC 
6* ICVT *LCVl *WF ACT *ODR*RR *PFMIN*PFMAX 
NAME L I bT/ INZ/FXPO*CKBATT*VO«>R*XS*KR*RS* 

6bK 3 • BK 1 *bK2 * BK F V * UK W * F NW * E NF * HK F *E NC 
6fc Me 1 * t. MC 2 » WDAC * PH I AC * VOL T AC ♦ VAT AC 

NAME. L I bT / 1 NY/NF *NW*WWF l *WW[)G1 *RRA *RRF * RRL * AK T * AK V * WDAT * AF COAX 
6 ♦ R S T 1 %RST2 *AACMaX,BHD 1 * U002 *EHD3 * AF FO , AFM I h * TOLR * FEFE * I ALH*RCNf 
6 * WWC.P * JtL f C * I TR * bS *F_ 1 I *MOOL *ARTURN *FTU«M*PLOGIC *PMCON *RCN2 *Pb 
6C0N * PC HRG * DMO T I *NC *WBASF « VBASt * F BA SF *VPHf * VWCL * VAT ♦ ALPHA *»FT A 
6 * VE/ASE l * I TF-AX *WHASE 1 * I BASF l * I BA SC *NS *NP * FHASE 1 *UAHC *FLUX I *EFPOTO 
6*CURL0^*EPVFH*NS2 *NP2 *UAHC ? « I HTYP *NC 1 *NC? * I HS* I BTYP * VCNZ * VCNF 
REAL YTh^P (20) 

INITIAL SECTION ************ 

DATA TTyp/l/BTYb/i / NCYC. / 1 / VN/O. / VO/O. / SSVEL /2*50 • / 

DATA IKNT/i/ITRIP/25*0/ITPDC/25*0/TAC/(),/ITRNUM/2S*0/I l/0/TSS/?*10./ 
DATA DPRT/b. /HCMX/ . H 5 /t>CMN/ . 2 /KM/O . / IF I L / 0 / EM / . 7 / ND / • 96 / I A1 / • I • / 

DATA S/0. /DWHL / . 5/DT / 1 • /WC^X/5000. /WMMX/5000. / IF5F/0/E0N/ 1 / 

DATA CTYFV1/LTYP/1/DCTYP/a/MTYP/1/VMODE/2O./IA2/*0 , /I I N I T / 1 / 

DATA I DOWN/n/REGFN/O/FUEL/O./A/O. /GRM/ l .4/ IEIF/O/WFWMX/O./ INS/O/ 

DATA NTM/.9S, .96* .97 . ,98/SMI F T/20. * 40 . * 80 . / SH I F T A /40 • * 70^*110./ 

DATA VE0N/20. / I T 1 /O/VDCMN/ 10./ IHCF /0/MH/O*/ IF I L2/0/CR0L 1/1.4F-3/ 

DATA I C/ 1 / IC YC/ l/T/O./DI .'T/0. /LRGtN/O. /DTTYP/ l /PRAT/O. / I ACCEL/ 1 / 

DATA I RRUN/O/TO/ I .F 1 0/ TMlFF /O • / TE t NG/O • / I MON/O/ I EON/ 0 / JENG/ .07/ 

DATA ICNNT / 3* 1 /GRATS/ 3. 1 • 2 *5 ♦ 1 • 5 • 1 • * 2 • 7S/NTMTR / .98 / JMTR/ #07/ 

#*<»»»*« ******* VS I Z ROUTINE, DATA ************** 

DATA KP/.OS/PFE /. 5/ PFM/ .S/PFEW/O./MFB/ * 2/E SP/. 391 /TSP/2.2H6/ 

DATA MSP/.25/K0L/3./CSP/.641 /Bbt/0./ESP/0./TFWP/20./FwSE/. 1/ 

DATA MFPT/*5/MCHN/S00. /MPl /ISO. /KPP/. 22/KTP/ i./C/3*6/MV/0*/ 
rfrc DATA 

DATA CD/.45/AF/2./EVD/0. /CROL / . 0 1 2 /CR0L2 / l • 2E-5 / JWHL / l *4/ 

MOT /GEN DAI A 

DATA CFEF/*99/CAEF /.96/VWIND/0./W1DLE i v /600* / I ESI Z/0/ 

HAT DATA 

DATA BCI /U/BTYP/l/EHOUT/o./EOlN/O./IFCON/O/EPCP/l./ 

DATA BSFC/6*2*E-2/BSPC/6*4.4lE -3/ I A3/ • SPEED* / I A4/ • POWER* / 

DATA BSEN/6*3./HSPN/6*l ./ 

DATA BDCMXK/6*4. /HCMXR/6*! ./ 

ACC DATA 

DATA ACTYP/2/IFAN/1/IP5/1/I ALT/1/ IAC/O/IWP/1/ 

ENGINE 

DATA FSTRT / 1 0*0. /W I OLE / 8*800. *900o * 750 • /W I DLE A/ 1 200 • / 

DATA FlDLF/2 <,45*1.32 *4 0 9*2. 6*2.7*. 7, 1,6*3.6*2.42*1.2/ 


PRECEDING PAGE E-lAKX MOT f iLML t 

>. PAGE IS 

■ "5 POOK QUALITY 


3=5 


t'AT« IM'H /.'/lMLl/il/ATt r ('/ n fk«F f F / I ./DCITF/ 1 . /HC VAL / . *• / 


6*0 
65<>C 
66< C 

6?nc 

6R0 

690 

700 


77 


t Al L Ml lS 
• V 7 7 I = 1 • <>{l 
YTI ( I ) :(>,(. 


; > a r a input 


71()CtJt$tt WANT T (' I, Ml-' FROM PFVICF I ‘,1 , , 6 F I k S T Tlf'F THROUOH THI l*PP< '• A v 


720 


PF AIK 1 6* |M 


7 30 


PI Ap (17,1 "■ Y ) 


740C 


91 Ap( l'l, IN/) 


760 


1 HI IN? = 0 


760 


(>n TO 1 m 


T TO 

i * 

i«UN2=" 


780 


Wk I TF <6,96 ) 


790 

98 

FORMAT <*UU YOU RANT TO ( HANOI INPUT 

OTHER 

800 


6 OH NO* ) 


B 1 0 


Ml. A*) 15,101) MO*. 


8 20 


1 F ( M05»F • 1,0 • ) 00 TO 99 


8 30 


WK I TF <6, IS) 


840 

15 

FORMAT <SX. • INPUT UN:*) 


860 


kfc AL) < *> , I F| ) 


860 

99 

WkiTL <6, IPO) 


870 

100 

FORMAT ( *00 YOU WANT TO C HAMCiF MOTOR 

1 ATA? 

880 


Mf Al)< 5, 101 ) MO 5 


890 

101 

FORMAT (A?) 


900 


If (MOS.IO. 'NO* ) Cm TO 16 


910 


WRITF <6,1P2) 


920 

102 

FORMAT < SX , ' I '.PUT MNY:*> 


930 


R[. A() < 5 » I f. Y ) 


940 

16 

CONTINUE 


960 


T5AV=FT0F 


960 


IF ( IF iL.Nt .P) CALL ASS I ON ( 2 1 ) 


970 


1 F < I F IL2.nl, 0) call ASS I (iN ( 2 2 ) 


980 


IF < IF IL 3.M .0) CALL ASS I (jN 12 3) 



THAN MOTOR ?,TYPF YF S 


TYPF YF.S OR MU) 


990 
1000 
1010 
1020 
1030 
10*0 
10S0 
1060 
1070 
10BO 
1090 
1100 
1 1 10 
1120 
1130 
11*0 
1150 
1160 
1170 
UBO 
U90C 
1200 
1210 
1220 
1230 


17 


25 


(All ASSIC.MIH) 

'*» I DI. s * I DU (( TYR) 
tolftLtMstoDASI. 

IF ( IHS«JI LlC.tO.2) W|I>LI MskHASI /2. 
IFUfcUC.irj.l) wIDLl M = (,00. 

WlDMsMlPLtM 

IF ( SH IF TA ( 1 ) .Kj.O. ) ( ALL L I N M 0 , 1 , 1 . , I , > 
I TFJ = 1 
F'RTsP. 

L)TP = l'T 

IF ( 1 TRIP ( 1) »LT.2 Kill TO 2*> 

IsITRIPU ) 

DO 17 11=1,1 

PLMxsO. I*FL0AT I l TRIP II 1*1 I) 

1 TRNLIM ( I 1 ) = IF IX (PF MX) 

I TMPC ( I 1 ) - I TP I P ( I 1 *1 )-I TRNU M < I 1 ) *10 
CONTINUE 
I ISO 

PCTYP=|TRPC ( l) 

CALL VS I 2 

CHECK THfcbF. NUMBERS 
MHDC.MXsHDC MXR (HT YP) •psffmx 
RHCMX=PCMXR (BTYR) *PSHMX 
OCHCjsbC I 

HW' = HCHG»MB 
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12^0 IH IACCrL«MJ.2>00 TO 8H 

1260 ill) TO 90 

1260 RR CALL OUTPUT 

1270 00 TO <n 

1200 R9 CALL VS I 2 

1290 hW=MCH0»MO 

1300C 

1310C •#RRRRR»«*tRRRR«tA MAIN SLCTION »*Rt«R*tMi 

1B20C 

1330 90 CONTINUE 

1340 1UKUN=0 

1 3*>0C cals: VLL'ACCLL (LM/HR) 

1360 CALL DC YCl l 

1370 111 CALL OSPwK 

1 380 CALL TRANS ( l ) 

1390 222 CALL COMPaP 

1400 CALL CNTl 

1410 PMSAVt =PP 

14?0C 

1430C Hf A T CM* IM STARTING W I Th F’OTOR 

1440 JST ART :H 

uso if o-of4SAv.ro. n go to 200 

1460 IF (PM.t.t.PHFMAX.ANPeVNF XT.OT.V) CiCTO 260 

14 70 I F ( VMt X 1 .CT • V M (U> ) 00 TC » 2SP 

l 4 60 00 TO 200 

1490 260 JSTART=1 

1600 pMspM^I'bT ART 

1610 ?00 L3N5AV=LUN 

1620 monsav=^on 

1 6 30C 

IS40C CO^PllTt INUINI ON / OF f TlMf 

issue 

1660 iMU'N.fi.’.O) OO TO 777 

l S 70 i TON = l TUN*PT0 

1SH0 LTOFsO.n 

1690 ol TO 70 7 

lfeoo rrr f-TON = o.u 

lftio F T OF Z[ Tut OTU 

1620 T SA V = l TUF 

16 30 70 7 CALL f \vi(2) 

1 f > 4 0 SSS CALL MT4M21 
If, SO ITRslTRM 


l 6 f>o it.spc 

lh70 \\* IF (C TYP.«m| . \) CALL OAT I / ) 


1671 
1 6 HOC 
lf>90C 
l 700 
1710 


SNl = S S 

STUWF I » A ▼ A FOR ‘M OTT I f j(, 
IF <»( .1 ii.O.U) *1 -O.Ol 
if u*M.t o«o«o) wMsn.ni 


l 720 
17 30 
\ 740 

1 7S0 
1 760 
1 7 70 
i 7R0 
t 790 


1 TCNsPl /wi 
TMOTs|»v/Vfcp 
TTsFlOAI (l FFK) 

IT ( I Tt R.OT .2000) on To 

444 *91 Tl II **S IS) TT 'PV.pM. I ARP* I PAM ,V( MfU>#VOASI ,( UAT2»VHASf 

M’I'AT2*PPAM .AMAT2* IHASF «l*( HG'Pf 
(* »WF «POS*l hOUT •H.UX.TTl N*WU «A«f Ul L *V *LMNOX 


S|S I >MAT (2 ( 101 12.4/ u 


lhOOC/ 

ItflO 666 CALL 'HlU'UT 

1820 If ( JRR jN 0 t r.\) On TO 89 
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bn 


IOC 
20 

<*oC 
60 
60 
70 
BO 
90 
100 
no 
112 
120C 
noc 
uoc 

ISO 
160 
170 
180 
190 
200 
210 
2 20 
2 30 
2M) 
260 
260 
2 70C 
2 HOC 

2 90C 
K10 
310 

312 

313 
31 ** 
31^ 

3 1 6 
320C 
3 30C 
4hOC 
3 SO 

370 
380 
390 
<♦00 
•♦IOC. 
«*2 0 
<♦ 30 
*♦<♦0 
•♦so 
<♦60 
•♦ ;o 

•♦90 

<♦91 

SOO 

610 

620 

VI 


= 17 


IIYPM 1 PPOC 

PAKAMt U.W |0W:. '>00* l<»0 = 

IMPLICIT Hf. Al ( J-NI 

UM bLVtUAL VARIAHLI.S AS CHAWACTIR STPIMC.S 
CHAHACTlR»K |FOHM?,lA.T«lA*«Jl'AT|..Jl Iff 

|NTrC.tr KK,ir..l)CTYP.CTYf.MTYM.LTYP.TTVP,DTTYM, 

I'TYP.NCYi * I ON *MM »PUN » ACT YP 

OIMI NS ion ITHIPC.’S) .|T»NUM(?M ,1TW0C(;*SI .ssvru?> .TSM.’I .|K>RM?(fc> 
p | Mb ION Obi ( (6) ♦OSOC (M iNT^i^l «HOU (10) tFSTfiT (10) •"jlOLM 10) 

0 1 ML NS I ON OAK 1 ( 1 Of? * I OW ) ♦ 1 CNNT ( 3 ) ♦SHIFT! 3 ) ♦ SMI FTA (3) ♦OK A , S < 6) 
l) I M t NS I UN P A C ( ( «♦ ) ♦ 0 S 0 N ( t» ) ♦ 0 S l N ( f » ) ♦ OP C M X R ( 6 ) « 0 1 M X R ( 6 ) 

01 Ml NS ION OH l AC (10) ♦VOLT AC ( 10) ♦ VAT AC ( 10) 


ORIGINAL COMMON-MI AL F AM AMI T f PS «* MAY IS 


COMMON / Ri'LR 1 / 

OM ,PC ♦OOfOLMX %VHfVS ♦ V6 tl3SFC fOT %MV »NTMT 

*L m % m( mc,,PjM*A*OCMX*IK MNfOOCMX*Pjl ♦TF I FUDTP^VMOPt *NTM*W|D 

♦ PS!3 M X%f SOMXtPr wMX % pf .PMXM.PMXE *WI)S*W lOt 

• V ♦NT •NP* VMCMN *WT tUWHL *PwHL ♦ GK AT S ♦ OPS *CiR T •CROC l 

«F tiulJT ♦( OlN«k VLM RCiFN*OC 1 ♦FULL •PACC^PRAT ♦CROL %CR0L2 ♦ J*HL 
,Pt*DCMA.«HN.| l. N( j. TLI N<>» m VC H » TMCFF .f SP.TSP.MSP.HSI .OSP 
, I MAT CONS. OAR .NTPTK ♦ Jl. » JM.PF k A .PFMA.VW I NO.WFWMX »TAC .WlDLI. 

,jMTR,PlNC.,S,WlDLFA.SMlFT,SHlHA.Kl.lC?.KT : KA,TSS.SSyU. 

,HSf( ,1‘SPC.BW.C .CAFF.fO.CFIF.CSP.PI ST. 0PHT.HH0F.VMIN1.SPFRA, 


A I 


F 10LL ♦ T b T R T ♦ F W S l ♦CiR^ ♦ N v ♦KOL • * P ♦ X T P ♦ MO ♦ WF.MX ♦ 

MFp ♦Mf P I »MPL ♦ FO l ♦ PFF W %0F M,|>M 1 H ♦ TF iwP *W 1 DLL ♦WMMX 


Mufti* Mm u'MMON-RIAl PAR AMI T l R S 


1 OF.M IN / R \'i * 2 / V F ON ♦ A T t NP ♦ f: C l F f « ( HtiR $ t ♦ l.PCP « PC V AL • PR T ♦ 

60SPN.MSI N.t'l •CMXM.»'CMXP*[-MH( .1 Mlil,l»Nl«.FFOHC.CFOCO.lFf|NOK.PFPX.SP»« 

6.CTCT ,t TON.I T«.)F . TCMwO.I C.Ru( T .1 l.MCOT .t uMNOXT . LC.MC S l .1 MCS.TSAV 

t,. 1 AOF , l AON. 1 TCP.PVL0SS.TS1 'K..WSI .PST ART .IHJWNM »clME AT .(ICONS • ♦ 

6ll-AT.IMJ7.PlLl SS.PFlOSS.11p.IVAC «CCl .SACC.CWW.CFF 

(,,|H RST . jsl ART .VN1 XT . ANt X T » PMT MAX » J A( C 1 L *RSS « SNI W.VMOO 

6 « 1 ( VT «l ( VT • tfF AC T *00« *MM *PF MJ N*PF MAX 


;»P|1i!NAL INTI. COR PUK*- MA> 1 


ft * ft » * 


C or ’MON /IMF 1 / R L C.t -4 % 

j)( T Y|),( I vr ,MT YP ,t T YP n T yin I TJ R , l M(,r tPT T YP ♦ IKON. 

♦ J'^A T l • J I | M( tOTYP %MC YC *( ♦ Mr i * 1 1 M * * 1,, “ “ 

♦ IF l L ♦ 1 F **N • l OS ♦ l ALT ♦ I AC ♦ 1 wP • 1 hO *11 

, ,r.ON 0 AC TU>, 1 PR T S ♦ l F U f , ♦ l M * >N ♦ I CNN! ♦ 1 1 * l PORN * I F U 

, , l T9 l P ♦ J 1 >■ Nt'M , l T Ml)C ♦ I XU T • I F OJ M ♦ ! ► oF‘F 2 ♦ 1 A 1 • 1 A «? < 


jr. ♦ 11 si/ 

1 A< CH. • ICit AW 

2 ♦ l 11 
1 a n i a<* < 


K 


COM* ^./•'DTl'AT/PMOT 1 .WtiASI .VMASl .10AS1 .U'ASt .Rt'ASI .PITAS! .IL'JXl 
L'TMM ■ i'Cr-“ I A/NF .Na-.NC 1 .ww.'l.l .RRA.KMF.RRL.AACMAX.WC R.JM.UX. 

6ArtMAX.AAV.AM.*0AT,HSTl.. • ST ..M*l) I .('IMS’ .'»!«!' T . A1F O.WH AST 1 .► MAS! I. 

(.AlMiM.T ILH.MH.I Al.'.uunc I', ARTURN.T TliPf. . I1TASI l .PMAS1. 1 . VHAST l 
CUMMUN/^IM.AT / J1 LI c .ITS. ITX’AX.VwCl .VPMl .VAT ,CURl OW . JTORN. I ARP . 

6PU01 .RuOC.K .1 CHHo.PHC C»T. * * *'<■ ON .RPS* VI .1 LUX. VC MOP 
RIAL I OAM . J ARM , | .< ATT . 1 F Lt « N* . Nf .NC . I ALH .M .NT.Il.0jS.lt A..t l « 

thp'.N'r.ALl’MMsV.iH ’M'-l .VPMl ( PM .V*CL m»1 ,VAT ( 1<>) .IU TAT (S) ♦ ^LP 1 >A t ( '• ) 
COrL;/RAT«.'.T/NS.NP.I 1.|m...*.A 1 PMA..„TA.,cU,M1,0AMC,|MTA I.IF’-'MU. 

t , LNHATP.l N'.'.TR.SS. 1SATT .P 1 ATT ,1 * AT T .1 l T AT .Al.PMAT .1 IT.NC 1 .NC,.^ 

6.1 | > V ■ m,N‘j. , .'»P.’.A*'AT 1 >.IAMI ,• .,\KC .IK RATI . A HO.’ « AC UR ,f H A T ? . 10 I Yl* 


Jl.AT ’ . 1 1VS ♦ C w/ « Vi NF * R( ^12 ♦PCNF •( O h l 1 


GENERAL HH ELECTRIC 


530C »<■•<*** NEW INTEGER HLOCK »#»*#»»« 

540C 

550 COMMON /IHI-K2/IST0P* I F!L3» I INI T. IECON 

560C END 

570C HVPH2 PROC 

580 COMMON /ftHLK3/PC.WE»DT.VO,VN.TO«T.XF,YF.Vl,V2.V3 

590 COMMON /IULK3/1TI.I.IX.II .ISUH.ICYC.IY 

600C tND 


GENERAL ASl ELECTRIC 


IOC 

20C 

30C 

40 

50C 

60C 

100 

no 

wo 

130 

no 

130 
160 
170 
180 
190 
200 
210 
22 0 
230 
260 
250 

260 30 
270 
280 
290 
300 


CONTROL SUHR0UT1W A**************** 


6UHR0UTINL CNTL 
INCLUDE HYP«1 
INCLUDE HYPW? 

‘^MtNSICV. P(VT9,1?),PCVT10(12).^CVT9U?» : SMCVT10U7) 

DATA PCVl9/0.u6,7,2?*b«32^»^^^6. t52«5 *59. 3*66* * 75* 7 % 

6 # OATA°SPCVI9/20..20..26.6.33.3.aO. ,A 7..53.,feO. ,67. , 76. 7 ,86. 7 

^DATa'pCVTIO/O. ,8.6, 1 1.5, t A.A, 17.3,23. ,38.1 ,50. ,6) • 3* 75.7 

^OATA^SPCV* 10/30. .30..30. . 30. , 30. , 30. , AO. ,50. ,60, ,80. ,90. 

6, JOO./ 

PWAT=PPA1 
1*30*0 

IF (JVMJN.f U.O) CiO TO 30 
IF UBAT2.0T.IBASF/2.) <>0 TO AO 
JVMINsO 
00 TO AO 

FMlMI*VMI M*NC2*M>2/ ( VliASF. ) 

tMlN2=1.3*AFwJN*l«M*AK V/VflAsr 

VMlN* ( AMAA 1 ( EMIN 1 »E* I M2 > > 'NP 
IF <E0AT2.'jT.VMIN) 00 TO AO 
, uu JVMJNsl 

310 AO PFFX = PFMX*C1.0-.5*Fl0AT<JV'MN> ) 

320 50 OAR (3« 19? > *0.0 

330 VMOO*VMOOF. 

3 A 0 IF (SS.CiT.u.S) V'W)* VMODF.* 1 1 « 0 - 5 S **2 » ) 

350C 

* . n IF UCVTaL* 1 *! ) GO TO H 0 0 O 

370 GU TO (100n000f2O00t300(U6OOn,60Mi*6O00)*CTYP 

390C »**«**»*» CONTROL STRATH, Y *1 ••****“ 

<♦00 100 If* (PT*Pj"> 300**104 
mo 1»* (V) 360 ♦ JM> ♦ 

mo 104 n* t > ♦ n2o 
<*30 105 1 f* (HC-»Cj-BC*’»N> « 1 3°* 1 30 
44 0 115 IHCE=1 

4^0 

»•**!. UATURY r,LK>b C HWCi , FIRST CHICX F OH PWH FROM HF 

If* (PMXMt PLP - ( PT Jt>P J M *PACC ( i) ) > 1**0 « l 60* -mm***** 

****♦•**#* htNO HAb fcXTPA POfcf-K TO CMC HATT *« »* # 

PtsP'1Xh«EPt P 

u^sPMXE *M'CP- ( PT *P Jfc *PJM*P ACC ( 1) ) 

If* (PM.GT.P' XM)PM = P^XM 
Pt=P^^(PT^PJt^PJ M ^PACC(lf ) 
l*GF=l 

• »*#***«*»*e HfcNO -<AS J'JbT F M1K POwl R FOR DSMAFT ****** 
57()'l60 Pt*PT ,HJl«PACC ( 1 I 
500 HON*0 

6?0C ^•••••••°hC h O lb POSIT 1 VK” CMKK FOR « 

610 120 IHCFsO 

h ;0 IE (bC w O°UC V X ) 1 1 r >* 1 15 • 105 

630C ««*»« HAT I'OtbNT OKED (HO, l*t 15 PUS, D15T PO-PK 


',60 
«.70C 
*80 
*.90C 
500 
b 10 
520 
530 
5aO 
550 
560C 


3 = 11 


6*0C. 

Cl.TLIil MOl'IFIC AT IONS 

6S0C 

FdH COMMON PFFX 

660C 


SfcT PFFX IN NAMtUSTsO.ii 

670 

1 Vi 

PMsPT*PACC (4) ♦PJM 

680 


MON=l 

690 


PFFX=OcHt 

700 


IF ( l*Of )2i%2 i%?2 

710 

21 

IF ( (P»w* MoO- ) *> . ) 21%?* 

720 

?3 

I HOF s 1 

7 30 

22 

|F (MMXM# ( l ) #PFFX-PP) 2^ %?^ *< 

7*0 

2*> 

LONsl 

750 

2b 

VlsPMXP# ( l * P F F X 

760 


I F ( PrtAT ) 21*21% 2H 

770 

21 

PLsPT *PJM*PJ£ + PACC 1 1 ) -VI 

780 


PMrVi 

790 


(,U TO 29 

800 

l B 

PM= <PT*PAtC ( 1 ) ♦PJM + PJt ) * < 1 .O-PWAT) 

810 


pa=PM&P*AT/ ( L.O-P wAT) 

820C 



830 

29 

IF (PM,GT«PMXM.OP.PF .GT.PMXt Kioto 140 

8*0 


GO TO 400 

B50C 



860 

140 

IF (IGO.fcO.n GO TO 1 4 1 

870 . 


PWATsPMXt / (PMXUPfW) 

880 


100=1 

890 


IF <CTYP.U„.b> 00 TO 2 B 

900 

1*1 1F(0AR(3,192) ) ,,!** 

910 

143 

CALL TRANS < 3 ) 

920 


PWAT=PMXF/ (PMXF ♦PMXP) 


iMO 


ISO 


930 

9*0 

950 

960 1** 
970 
980 
990C 
1000 
1010 
1020 
1030 
10*0 
1050 
1060 
1070 
1080 
1090 
1100C 
1110 
1120 
1130 
11*0 
11 SO 
1160 
11 TO 
1180 
1190 
1200 
1210 
1220 
1230C 


OAK (3.192)= 1. 

|(> 0s0 
00 TO 130 
(JAM (3*192) =0. 

IF(ICjFAK.NE.I) 00 TO 1*3 
00 TO *00 

««**## HAT NfcFDS (HO 


HUT HI L'OLS NOT HAVE PWR TO MtFT OCYCLF 


300 


IF (PMXF*t.PlP-(PT*PJE*PACC < 1))) .160,160 
PL=PMXt«fHCP 

PMsPT*PJM*PACC ( 1 ) *P«JF -PF 
IFIPM.OT.F’MXMIPMsMMXM 
PE = PT*PJM*PACC ( 1 ) *P JT -PM 
IF (PMXF-Pt ) '*00**00 
IF (OAR ( 3. 192 ) ) « « 1** 

CALL TRANS (3) 

OAR ( 3 • 1 92 I * I • 

GU TO 150 

••••• POWER AT MTR 15 NEGATIVE *•*«** 

IF C (PT.PJM) .PACC (*) ) ,*00,3 30 
IF(RFGLN) 3*0, 3*0, 

IF (HCHG.GE .0.9) GO TO 3*0 
IF (V-VHCPN) 3*0, , 

I F ( BCHG- 1 • ) ,3*0, 3*0 
PM s AH 5 (PT*PJM*PACC <*) ) 

MoNs 1 
IMGFsl 

IF (PM.GT.PMXM) PMsPMXM 
FRGFN=FRGE N*PM»DTP/ 3600 

OAR ( 2, 192 I s(jAM ( 2 , 192 ) « < ( PT .P JM.PACC ( * » ) .PM ) *[)TP I 3600 . 
GO TO *00 

«*»**MGFN PwR INSUFFICIfNT TO DRUT ACC ** 


3-12 


GENERAL ELECTRIC 


12A0 330 PMsPACC (41 ♦ (PT.PJM) 

1250 M(tNsl 

12fc0 GO TO Aft!' 

12^0C *** ENUI P|nP T'J DRIVE AC CS OUT NO Rf GEN WANTED ** 

l 2 BO 3 AO OAR ( 2 » 19? • =C>AR ( 2 » 192 1 ♦ (PPS»P J f ’*PAl C ( A) 1 *DTP/ 3600* 

1290C ABOVE IS t‘li AKfc URN 

1300 WXX=GRM*wT 

1310 IF t ICM.NK.O.AMD.DCTYP.NL. M wRsAMAX l <WXX .WIDLEM) 

1320 ht) TO AOO 

1 3 30C ***** VEHICLE VLL IS ZERO ****** 

1 3 AO 360 IFUHCF) 360,380. 

1350C AROITHARY SPEED ASS'GMMT F(?F DAT CMRGNG 

1360 WF=.5*WE M X 

1370 EON=l 

1380 CALL ENG 1 11 

1390 CALL ACC 

1400C ARBITRARY PWR ASSG»MNT 

1 A 1 0 PC = .fc*PKXt 

U20 M0N=1 

14 30 PM=PE-PACC ( 11 

1 4 AO WM = WE 

1450 IMGF s 1 

1460 IF(PM.GT.PPXM)PM=PMXM 

1470 PE*PM*PACCI1) 

1480 GO TO AOO 

1490C ***** V=0 MTH SUPPLIES ACC PWR 

1500 380 IF ( IECON) « . 390 

1510 MONsl 

1520C MAY BE TOD SLOw 

1530 WMaWIOM 

15A0 CALL MTR ( 1 1 

1550 CALL ACC 

1560 PMspACC I A 1 

1570 GO TO AOO 

1580C ****** V=0 ENG SUPPLIES ACC PWR 

1590 390 EON=l 

1600 WE=WIDE 

1610 PC=PACC(1I 

1620 AOO IF (EON) ,,A10 

1630 1FIICC0N1A10.A10. 

1 6 AO EON= 1 

1650 IEIF= 1 

1660 A10 RETURN 

1670C ****** CONTROL *2 ******** 

1680 1000 IF (PT+PJt)300»»110A 
1690 IF(V) 360.360. 

1700 110A IF(IBCF) ..1120 

1710 1105 IF (0CHG-HCMN) 115.1130.1130 

1720 1120 !BCF=0 

1730 IF IBCHG-HLMX) 1 15, 115.1105 

1 7 AOC *** BAT DUFSN'T NEED CHARGF”' PUS IS POS— — 01ST PWR 

1750 1130 PE=PT*PJL*PACC(1> 

1760 IF! IEM.NE.0.AN0.0CTYP.NE.7) PF=PE*PJM*PFlOSS 

1770 IF(IEM.NE,0.AN0.DCTYP.NE.7> WMrWE 

1780 EONsl 

1790 1F!PMXE*F.PCP-PE» .AOO.AOO 

1800 1132 Vl=PMXE*tPCP 

1810 MONsl 

1820 I F ( PWAT ) , ♦ 1 1 3A 

1830 PE E V1 


GENERAL <10® ELECTRIC 


1190 


mi 

1193 


1890 

i»oo 

I860 
1870 
1080 
1890 
1900 
1910 
1920 
1930 
1990 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2070 
2090C 
2050 2000 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2190 
2150 
2160 
2170 
2180 
2190C 
2200 
2210 
2220 
2230 
2290 
2250 
2260 


PftsPT- ( Vl-PJC-PACC d 1 ) *PJM 

PM=AM!N1 (PM.PMXMl 

PEsPT- IPM-PJM) *PJE*PACC t 1 ) 

(,0 TO 1138 

1 1 39 PE=(PT«PACC 1 1 ) ♦PJM*PJE 1 *PWAT 
PM=Pt»( l.-PWAT) /PWAT 

1138 1F(PE.GT.PMXE«0P.PM.GT.PMXW)G0 TO 1190 
GO TO 900 


IFdGO.EO.l) GO TO 1191 

PWATsPMXt/ (PMXt+PMXMl 

1 G0= 1 

IF (CTYP.tG.5l GO TO 1139 
IF (OAR <3*1921 1**1199 
CALL TUANS ( 3 1 
PHATsPMXt/ (PMXF +PMXM) 

OAK ( 3 ♦ 19? 1 =1. 

GO TO 1130 
1199 0ARC3. 1921=0. 

1F(1GEAK.NF..1> GO TO 1193 
GO TO 900 

»*•**#*«»* CONTROL #3 **«»*•**«* 

E0N=1 

IF <V) 2 100*2 100* 

If (PT.PACC ( 1 1 *PJf. ) 2100*2 1 00* 

PE.sPT.PACC ( 1 ) +PJE 
IF (PE-PMXtl 2900*2900, 

IFlltSIZl **2200 
00 2010 19=1*3 
CALL TRANS ( 3) 

MONsO 

PE=PT*PACCd)*PJE 
IF (PE-PMXt) 2900*2**00. 

2010 CONTINUE 
HE TURN 
2100 I E I F= 1 

oSrII ) =OAW ( 2 . 192 1 * ( PT.PACC ( 1 > *PJF ) *0TP/3600. 
return 

2200 IRRUN =1 r ^ 

WR 1 TE( 6 « 22 S 0 )T«\/ 9 A 9 U T«PACC( 1 ) *PMXE *K P 
2?50 FORMAT ( 1 H ,* KP INCREASE: T *V « AgPT gPACCgPMXE gWF. gKP 
tr BLlOeA) 

KP=<P*.002 
2400 RETURN 


2270 

22BOC #*»**»* 
2290 3000 MON* I 
IMOFsO 


CONTROL #4 


2 300 

2310 

2320 

2330 

23AO 

2 3^0 

2360 

2370 

23«0 

2 390 

2400 

2410 

2420 

2430 


PMsPT*PACA (4) *PJM 
IE (PM) 30? 0*3020* 

1 E (PM # UT •PMxMe AND* 1 ESI Z»E 0. I ) 00 TO 2200 

IE ( PM «Lf ,PMXM)RCTU«N 

DO 30 10 I 4=1 «3 

CALL TRANM3) 

hON = f> 

PM=PT^PACC (4) ♦PJM 
1 y ( p^.pMXM ) 2400 *2400 * 

3010 CONTINUE 
TURN 
3020 PMsOe 
M(jNs(i 


3 - 14 


GENERAL ELECTRIC 


2<,/»0 GO TO 300 

2<,*>0C »*##« COMROl #5 *<*«**• 

M60 4000 IF (V«VM0l>) 100, 100. 1000 

2470C *##»(*«»»#« CONTROL «6 #**«*»**** 

?4fi0 5000 IF (BCHO-HCVAL) 1000, 1000, 100 
2490C 

25O0C *#<*»»»* CUF'TROL * 7 ***»*••*». 

25 IOC 

2520 feOOO IKHCHG-MCVAU 1000,1000, 

2530 IF ( V-VM001 100, 100, 1000 

254QC 

2550C l C V T = 1 FOR CVT (CONT INOUSL V VAR 1 ABLE THANSMl 5510N) 

2560C 

2570 8000 

2571 
2580 

2590 

2591 
2600 


PACSsPAC.C ( t ) 
IF (WDS.LO.O.O) 
IF (CTYR.L0.3) 
IF (CTYP.f 0.4) 


Wl)S = 0 
GO TO 
GO TO 


,00001 

8200 

8400 


IF < V.EQ.O.O.AND. IECON.FO. 1 ) 
IF ( VMOD-V) 8 200,8400,8400 


GO TO 8200 


26 IOC 


2620C 

heat engine primary 

2630C 

CAN HE AT ENGINE ALONE PRODUCE 

2640 8200 

PFsPT*PJL*PACC(1> 

2650 

IF(Pfc.Ll.O.O) GO TO 8400 

2660 

IF ( ItM.Nl ,0.AN0,DCTYP.NF,7)WM = 1 

2670 

1F< 1FM.NF.0.AND.DCTYP.NF.7) PF 

2680 

PFFsPfc/PLMX*100g0 

2690 

I F (CTYP.E CJ. 3) GO TO 8205 

2700 

IFIPF.GI .PMXE) GO TO 8700 

2710 8205 

IFIPFf ,GT. 100.0) PFF=100.0 

2720 

IF1ETYP.E0.10) GO TO 8210 

2730 8209 

CALL L!N2(PCVT9,SPCVT9,12»PFF , 

2740 

GO TO 8250 

2750 8210 

CALL L1N7(P< VT10,5RCVT10,1?, 

2760 8250 

IF (WFF ,GT . 100. 1 WFF = 100. 

2770 

Wf =WEMX«WFF / 100. 

2780 

GRT = w) fc /wl)5 

2790 

IF (GRT.LT. 1 ./OOP) GP T s 1 . /L'DR 

2800 

IF (GRT.GT.RR) G«T=PP 

2810 

WF :WOS*GKT 

2820 

EON= 1 

« R 30 

M0N = 0 

2 340 

GO TO 400 

2850C 


PBfcOC 

MOTOR PKIMAR 

2B70C 

CAN MO 1 OR bURPLY ALL TU[ POWL 

2RH0C 


2 R90 8400 

PM=RT.PJM.PACC 14) 

2900 

(..KT iWHAbk *WF ACT /WDb 

29 1 C 

IF (GRT. Cl .R«> GWT=RR 

2920 

IFIGKT.lT.l./ODR) GRT = I . /ODK 

2930 

F/MsWDS»GRT»GRM 

2940 

IF (PM.LT. 0.0) GO TO 8500 

2950 

IF (WM.L f .WIDLKM) WM = Wir>Lf M 

2960 

E ON » 0 

2970 

M')N s 1 

2980 

IF tCTYR.il. .4) GO TO 400 

2990 

IF (PM.Gl .PMXM) (.11 TO 8700 

3000 

GO TO 400 

3010 8500 

PMsO.O 


POWER REDD. ? 


WFF ) 


3“15 


GENERAL! 


ELECTRIC 


3020 IMC.FtO 

3030 M0N = O 

>060 L0N"0 

30 Ml |F («t GF 'jo.i.Oh'.l'l HG.GT „(,. ») 1.11 Tl) <,00 

3000 PMc; At>5 ( H T ♦!’ JM-rP AC C <6> ) 

3061 CiRT.-irtrl 

>062 WX«rtO‘j*«il'M»OK 

3063 IF IrtX.C.I .wMMX) hXswMMX»*jl‘M.‘ 

3066 G^TsxX/ (CipM»w(>f,) 

3065 IF (WX.L 1 .talDuFK WXc«l!>U fcl 

3066 WMsWX 

30 TO 1 ‘Hi I r, 1 

3 0 H 0 MONeI 

3001 00 TO A 10 
3090C 

3 1 OOC COMrtIMl) MOT OP /INC, |0f OOFUATION 

3110C 

3120 H TOO PTOTrl’l ♦PJM*PJF*PACC< 1> 

3130 PARTsPMXF / (PMXt ♦PMXM) 

3 1 AO PM = PTOT*( l.-PABT) 

3150 PfsPTOT *PAHT 

3160 PFF=Pt»lOO./Pi-PX 

3161 M0N=1 

3162 EONM 

3 1 TO IKFTYP.F0.10I 00 To 8610 

3180 CALL L102(PCVT9*SPCVT9,12.PFF«WFF) 

3190 GO TO 8 A20 

3200 8 A 1 0 CALL 1. 1 02 (PCVT 1 0 « 5PC VT 10 , 1 2 *PFf ,WF F > 

3210 8A20 IF (WFF.GT. 100*0) KFfslOO.r 
3220 WEsKFFxWLMX / 100. 

3230 G92swC/WDS 

32 AO WM=WBASt*KF ACT 

3250 CjRlsWM/WOS 

3260 RT50 GWT=AMAX 1 (GR 1 *GR2 ) 

32 TO IF IbPT.LT.l./ OOP ) GRT=l./Or>K 

3280 IF (GRT.GT.RR) GHT=RR 

3290 WM=WDS*GRM*GRT 

3300 WE=GRT»WDS 

3310 IF IWM.LT.WIOLFM) WK=Mr>LFF 

3320 IF (WE.LT.WIDLF (FTYP) ) riE = W IDLM ETYP) 

3330 WF=WE/WtMX«100. 

3360C CORRtC I ACCEbSORV POwrP 

3350 8800 CALL ACC 

3360 DELPAC=PACC(1)-PACS 

33T0 PE=PE*DFLPAC*PART 

3380 PMsPM + OtLPAC* C 1 .-PAR T ) 

3390 GO TO AlO 

3A00 END 


IOC 

20c 

3QC 

40 

r jQC 

60C 

100 

no 

120 

130 

140 

ISO 

ISO 

1 zo 

180 

190 

2 00 
210 
220 
2 30 
24C 
250C 
260C 

2 70 
2 8 ° 
290 
300 
310 
320 

3 30 

331 

332 
340 
330 
360 
370 
380 
390 


.tHicut sur.fi u i «4f 


, T ( A l ) * Mp T ( A 1 ) 


49 

50 

40 

93 


1NL rfSU 
INCL'JOK hVOh-i 
l NCuU2>t -m'"2 

PAPAVIf T|-_'P A l 320 
Up.Vlbl;i3 1 Cr(Al) 

1 3Ub-2 

MCm( 1 . • 

MPT ; l ) s*F ►* 1 •f'iCMO 
IK <MvVoT#0 # )CiO fO Q3 

V?sl.-<P»»^FF /ESf’**TW/TSR»^F*VMSP»F’F l ♦ 

3 0 l = .? * M 

mvT ( I - l ) i ( * C.H ( I • l ) ♦MPl ) / V2 

t^PT < I ) smv t { I - 1 ) -mch ( 1 « 1 ) - M Pi 

MCHC I I SAMP* l MPT ( I I - M PT (1-1 ) ) * m O« ( l-l ) 

MV = < VC* ( 1 ) *MPl ) /V/ 

MVCHsMCHUJ _, , . nc 

lh (A^S( (Mv-^VT ( l-l ) ) / M V) *L7 .*001 ) o() Tv,* 05 
*W HE <*>.<.*>► V .VJ.^TII) .K‘<< I ) «^T ( l ) 

FORMAT ( IX. M 1 O. 3) 

CUrlT ! \JE 

rtW I TF ( 6 . 80 ) M V *MVT ( A l - 1 I *r-'C M ( 1 ) « MP T ( A l ) • V? 

K 0PM AT ( 1h» • VE m *T ROUTINE DNC* ♦SH0«3> 
b T OP 

PF,mX = AP»MV*PFE 
P M M X = K P * v V * F F ** 

TMMX=PMMX/*f mx* 90*9.3 
PbASF =PM^X*300# /L’FM(it 3 
tUA5L=PbAbt /VbASF 
PKVyMX = <P*MV ftPFF* 
h bUMX = ^Fb* M V*rbEC (t»TYP) 

PbbMX = MFB*^V*'35PC ( hTYP ) 

MHsMFP*mv 

RETURN 

LMD 





3“17 



h 



IOC 

20C #*«####**# UR I V 1 N<3 CYCLE ROUTINE ###*##**#* 

3 1C 

40 SUbRQUT 1 Nf DCYCLE 

50C INCLUDF HYP* l 

60C INCLUDE HYPW2 

100 PARAMETER UC1~6»DC2 s 32«DC3-30*DC4=26 

1 10 DIMENSION I DC l (DU ) «TDC2 (DC2) «VDCl (DC1) %VDC2 IDC2) 

120 DIMENSION I DC 3 (DC 3) fVDCKDCB) *TDC<mDCO •VDC4(DC4) 

130 DATA TDCI/6**0*oI9.*3H 6( »47*<7?./ 

140 DATA VDCl/6**0.*32.02**0.*0«/ 

ISO DATA TDC2/32* • <)• *2* »4* *6* *8* * L0» • 12* • 1 4* • 16* * IB# • 20# »22» • ?*• • 

lfcO 626* *28*t3R»«bft#*78#«flO**82»t8A**86*tB8**R9* t^0« %92® *94 • »96. * 

162 697 * • l 00 * • 1 2 3 * / 

170 DATA VDC2/32*»0**7*5*14*<l8.8*2?.ft*26.2*29.2*29.?»31.9*34.3 

180 6 * 36*5 f3tt*4 <40* 3 *42 • »43. 5 »45. •44*96 •44*94*44.9 *42.2 *39*4 •36*5% 33* 5 

1 90 6 • 30 • 3 • 26* 9 *2 3 ® 6 « 1 6 * 9 * 1 0* 3 « 3 * 8 *0 * *0 • / 

220 DATA T0C3/30**0*«25*«50*»67.*134.* 142.*167**180,*218**233#« 

230 6 240* «?78* *295 • • 310© * 326* * 3*0* *<*70* * 480* «S55* * 585* *6 1 5. % 

240 6 630* *642 • *655* *690* *7lS* • 740# * 76? • « 770* / 

250 DATA V0C3/30* • 0*»36.*3B.»48**48.*3*>.*48.^4 3.*43.*47**48**44.* 

2e>0 6 28*5 *44* *48* * 58 * *58* *55* «55* *48*5 *48*5*55* *46* »5l • • 

270 6 52 • • 59* #47* *0* *0* / 

2 80 DATA T0C4/26**0*«8*5«?6**?9**36* *44*5 *63* *66* • 74* «8?*5«100** 

290 6 103* • 1 10* • II 8*5% 1 37* • 140* • 1 4B r • l S3* * 168* • 

300 6 1 7?., 1 78. * 193. *2 16. 30*/ 

310 DATA V0C4/26* *0*»14*8*10**0.*0.*14.8*10**2*0**14.R*10*«2*0** 

320 6 14.8* 10* «2#0*%9*8t6. •2*0. f 19.8 « 1 4 . ? *2*0* / 

330 I SUbr 3 

331 1 00s i 

332 TXT=T 

340 50 UO TO t l0fM200*3O0*40r»5O7i* 6 0O«70O*ft00l »DCTYP 

350 300 THNsTOCHJCn 

360 CALL l1NT(IDCUVDCI*T*T*V.A) 

370 00 TO 1000 

380 400 TMN = TDC2U'C2) 

390 CALL t INT ( IPC2 *Vi>C2*TxT *V.A) 

391 A 2 A* 1 *60^ 

392 V s v * I • 6C 7 

400 OO T9 10CO 

410 7r 0 CALL tPACVC (TXT » V % A « TF I ’’.•DC T VP ) 

420 4 = 4*1.6093** 

430 V = V® 1 • 609 3 ** 

*40 UU T 9 |.7<K 

450 80"> CALL t D AC * C ' T * 7 * v * A * ▼ F I \ *’)C T > J ) 

460 VSV*U6093- 

470 4 = 4*1.6093** 

4 ft 0 00 T J 1000 

490 son CALL EMACYC <TXT.\,*A*TFIWCTY>M 
500 4 = 4*1.6093** 

510 V=V*l#6093* 

520 UU TO l')0 ; 

530 600 CALL FPAC>C IT»T*V •A*TFI\»0CTYy ) 

540 A = A* t #609 3** 

550 VsV*1«6093m 

560 UU TO 100. 

670 100 TF IN=Tb5( l * 

580 4=0. 

690 V s SS^ F l ( l ) 

600 v ) = ** l ^‘0 * 



610 00 TO 1000 

620 200 IHNsTSS<2) 

630 A = 0« 

640 V0=-100. 

650 V=SSVEL<2) 

660C DTP=CURRCN1 DT 

661 1000 I F ( I GO«t 0. 2 ) 00 TO 2000 

662 V5AVE=V 

663 ASAVE=A 

664 100=100*1 

66b TXT=T*DTF 

670 KM=KM*V*OrP/3feOO. 

671 GO TO 50 

672 2000 VNEXT=V 

673 ANEXT = A 

674 V= VSAVE 

675 A= ASAVE 

680 RETURN 

690 END 


PH| VI.- bHAFT POW| W 


GENERAL ELECTRIC 


lot 

2ot 
30C 
AO 

sot 
60t 
100 
not 
120 
130C 
IaO 
150 
160 
170 

ieo 

190 
200 
210 
220 
230 
2A0 
250C 
260 
270C 
280 
290 
300C 
310 
320 
330 
3aO 
350 
360C 
370 
380 
390C 
AOO 
A 10 

a20 aO 
A30 
A AO 


.V.l.l 


200 


SUHROUTINI ! >SPWH 
1NCLU0L MYPH 1 
INCLUDE HYI'R 2 
lbl)H = A 
MAX VtH VtU 
CALL L I N 3 ( ” 1 HO. 

MAX VI H ACL I L 

VlsC^OL«MV* ( li'tHOLH.91 l 3A<,*V«CM'L?» I .911 3AA»V > «*2 > * V/ 36 / .097H 
V2=C0*AF* < V«VMlNl)l *»2«V/>7 760.*(530.2 (A60..ATEMP) > 
V3=b»MV«V/l6709.78 
VA=MV*A«V/ 1 2960. 

V5=DTP/3600. 

K1=K1*V1*V5 

X2=K2*V2*Vb 

X3=K3*V3»V6 

X A=X A* ABS ( V A* V 6 ) 

PWHL sVl*V2*V3*VA 
I NT OF POb WHEEL NRG 
LVP=F VO.AMAX 1 <PWHL*V5,0. > 

1 NT OF MEG WHFLL NRG 
PFMAsPFMA* AM INI ( PWHL*V5 *0. ) 

WPSsV*5.305l6/0wHL*GRAT5 (5) 

WHEEL 1NFRIIAL POWER 
PFEAs JWHL«V»A/ ( 32AO.»DWHL*»2 > 

V 1 sPWHL *PF k A 
IF (VI) « AO « 

PP5*V1 /NO»*bIGN ( 1. *V1 ) 

IF (PDS) A2«* 

MAX POb POb 
CALL LIN3C-1 »8*PDS»1.) 

KFTURN 
MAX NEG PDb 

CALL LlN3(-l «9»-PDb»l.) 

RETURN 
P05=0. 

KtTURN 
END 


A2 


GENERAL*^ ELECTRIC 


333 


IOC 
20C 
30C 
40 
SOC 
60C 
100C 
HOC 
1 20C 
130C 
140C 

130 
160 
170 
180 

190C»» 
2O0C 
210C 
220 
230 
240 
250 
260 
270 
280C 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
4 *> 0 
460 
4?n 

480 

490 

*>oo 

MO 

520 

5 30 

b 4 o 

bbO 
bbO 
b 70 
bRO 
590 
600 
610 
620 

6 30 


IRANSM 1 SSI 0 N ROUTINE •••**•**•* 


SUBROUTINE IRANSllPUMI 
INCLUDE HVPR 1 
INCLUDE HYPR 2 

IfHJMsl NOR M AL TRANSMISSION SHIFT F (VEHICLE VEL 
UP-SHIFT ONLY 

INSUFFICIENT POWER DOWN-SHIFT 


10UM=2 

lUUMr.3 


222 


GO TO 900 


111 


444 


lSUb = b 
CONT INUF 
IF ( I CVT «EU. 1 ) 

M0D1FY M 0LU K M0DEL FOR CTTYP=2 to 1NCLUDF OHM ** 
WEMX = MAXIMUM ENGINE SPEED 
WMMX = MAX I MUM MOTOR SPFED 
PRPPT=SPFK 

IFMON.EQ« 0 ) PRUDTs • 333 
V 7 MPE = PRUDT*WL m X*OWHL / ( OR ATS ( 5 ) * >. 305 ?) 

V rMPM = VT^ u E/ORM 
VMAX=VTM*£ 

IF (VTMPM.LT.VTMPE) VMAX = VTMPM 


550 

33 

4 0 
100 


DO 500 1= 1 *3 
SHIFT ( I ) =VTMPE/GRATS( 1 > 

IF (DTTYP.tO. I ) GOTO 500 
SHIFT ( 1 ) =VMAX/GRATS( I > 

SOU CONT i NUF 

IF (ITER.GI .1) GO TO 33 

00 550 1 = 1*3 

SMI FT A ( I ) =5HI FT ( I > *SPFKA/PRPDT 
UO TO (40*10.400) * t DUM 
GO TO ( 1 00 * 200 % 300 ) % T T Y P 
IF (P;)S*bl .0. ) GO TO 1C 
if ( i do*n * l i • i ) RE turn 

IF (V.Lt .SHI FT ( 1 ) -2» > IGF AW= l 

IK (V. UT. SHIFT ( 1 1-2.1 .AND. lV.lt.5H ti -?•» {^tAR-l 
IF ( ( V.GT.SMJF T it) -2. ) .AND. ( V . Lb . Sh 1 FT ( 3 > -2 • ) > 1GEAR 3 

IF (V.GT.SHlFT(3)-2.) IGF AM = 4 
GO TO 35 
DO 20 1 = 1*3 
IGF A9=l 

IMV.LE .SHIF T ( I) K.P TO 35 
I GEAR c 4 

IF ( IGFAP.IO. I .OR.DTTYP.t 0. 1) GO TO 45 

1 MUST = I OF I OGL AR 

If <jFLU*.M..l.ANI'.lMjST.f <>.• > l(.f AK = IUf AR-1 
JfLUXxO 
NT =NTM ( 1 (,F 44 ) 

(jRT = oWATSI H EAR) 
return 


10 


20 


35 


45 


200 

300 

400 


LALL FRW? 

call ERR? 

IF ( Ibf AR.F 
V l =WDS*GRA 


12 3 


. 1) K*b TURN 
scic.EAc-n 

GO TO (123*123*323) *DT T 
I F ( V 1 *GT . wt ft1 x ) Pfc Turn 
IF (V 1 aCiT « «'* M X . ANO.PT T YP ® ( i. • ? > Pt.T(> L 


GENERAL^ ELECTRIC 


133 


900 


640 
650 
660 
670 
660 
690 
700 
710 
720 
730 
740 
750 

760 323 
770 
780C 
790C 
800C 
810 
811 
820 
830 
840 
850 
860 
861 
870 
880 
890 
900 
910 
920 
930 

940 

941 

942 
950 
960 
970 


910 


9 30 

940 

950 


OAR ( 1 • 192) s ( 1 ♦ 192) ♦ 1* 

WTsVl 

IGEAR=IGf AR-1 

Wt=Vl 

EON=l 

CALL ENG ( 1 > 
lHOTTYP-l) • » 1 3 3 
RETURN 
MON= l 

WMsWOS*GRAIS(IGCAR)*GRM 
CALL MTRtl) 

RETURN 
CALL F«R2 
RETURN 

1CVT= 1 ► OR CVT(C0NT1N0U5LY VARIABLE TRANSMISSION) 
I DO* l 

IF (WDS.tO.O.O) wDS=0. 00000001 
IF ( ITER. tO. 0) GRTsRR 
WEXsROS*GRT 

WMXswDS*GRT»GRM 

IF (WMX.LE .0.0) WMXsWIOLCM 
IF »WtX,Lt .0.0) wLXswlDLF <KTYP) 

NT sfcCVT 

IFICTYR.E0.3) GO TO 930 
IKCTYP.E0.4) GO TO 940 
GR 1 sRR 
GR2=RR 

IF (WEX.G) .WEMX) GR 1 swEMX/WDS 
IFtWMX.GT.WMMX) GR2 = WM*’X*SPFR /*'JS 
IF t WEX.G I .WEMX.OR.WMMX.LT .WMX) GR T = AM I N l (GR 1 *GR2 ) 
GO TO 950 

IF (WE.GT.LEMX) GRT*wE MX /WOS*SPFR 
GO TO 950 

IF ( WMX «G I . wMMX ) GRT = *MMX*SPFR/WPS 
RETURN 
tNP 


OPERATION 


GENERAL ELECTRIC 


iQC 

20 c 

3QC 

AO 

50C 

60C 

100 

no 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 


»• U1MM0NANT PCIhfcR ROUTINE **** 


SUBROUTINE COMPWH 
INCLUDE HYPUl 
INCLUDE HYPK2 
i5UU=6 
l*T = WD5»CiRT 


IF (PD5> « 60 « 

RTsPDS/NT * # SIGN ( 1 • *POS> 

PJfJFN(j*A*V« (CiRT»0RATS(5l ) 2 / t 3240. «t>WHL»*2 1 

P JN= JNTR*A*V* (<jHT«CjRATSt5) )»*2/( 3240«*0WHL**2 > 
65 GO TO < 1000,2000*3000) *DTTYP 


60 PTrO* 

GO TO 65 
1000 WMsW 05 ^GR m 

PJMsPJM* (GKM/GRT ) **2 
1005 Wb=WD5*GRl 
tON = t 
MON=i 


IMC,F=0 


250 lEIFsO 

260 IF ( DCTYP*GT ©4) GO TO 1010 

270 IF ( VN*£Q*VU) GO TO 5000 

2A0 1010 CALL ENG ( 1 ) 

290 CALL MTR(1> 

300 GO TO 5000 

310 2000 WMsWDb**GP 1 #GRM 
320 GO TO 1005 

330 3000 CALL ERR2 
340 5000 EONsO 


350 MON=0 

360 RETURN 

370 END 
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GENERAL ELECTRIC 


IOC 
20 C 
JOC 
40 
50C 
OOC 
100 
no 
no 
1 jo 

140 
1 50C 
160C 
170 
ISO 
190 
200C 
210 
220 
230 
240 
2b 0 
260 
270 
200 
290 
300 
310 
320 
330C 
340C 
350C 
360 
370 
380 
390 
400 


410 
420 
430 
440C 
450C 
460C 
4 70C 
480C 
490C 
500C 
blOC 
520C 
5J0C 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 


»*•••*»• INLINE SIMULATION SUt'KOUTIIlE ******** 

SUHNQJTINI EN6IID2) 

INCLUDE HVPWl 
INCLUDE HYPK2 

PAPAMETEP iPl=7,Pwl=B,NEM= 10, 


6 SP?=9»PW2=B» 

6 5P3= 10»PW3= 11»SP4= 10«PIa4 = 1 1 « 

6 SP5= 1 1 »PW5 = 1 I «5P6 = 9«Pv.6=l 1 » 

6 <jPY= 1C»PW7= 1 1 .SP8 = 9«PW8= l 1 

b ADD TO CUMM0N/HBLK2/EMHC.EMC0,t*’N0X.NrMC.NEC0.NEN0.PFMX 

fcb5C09^5P9 »MW9 nBSN0X9 ( SP9 ,PW9) * P MX9 I 5P9 , «PMX 10 ( SP 10 > »B5FC 10 I SP 10.PW 10) 


DIMENSION SPEEDl ISP1) .SPf CD2ISP2) .5PEEt>3 (SP3> , 


POWtRl (PWl) .POWER 2 <PW2) .POWER3<PW3> * 

BbKCi (bPUPWl) . BSFC2 < SP2 .PW2 ) .BSFC3 < SP3 .PW 3 ) . 

PMX 1 ( SP 1 ) %PMX2 ( SP2 ) tPMX 3 ( SP3 ) « 

P0wER6<Pw6) %SPEED6<bP6) .PMX6<SP6> .BSFC6 (SP6.PW6) • 

POWERS (PWS) . SPEf 05 ( SP5 ) ♦PMXS(SPb ) 9 FUEL 5 ( SPS .Ptf 5 ) • 

P0WEP6IPW6) «SPtf D6ISP6) »PMX6 ( SP6) .FUFL6 <SP6,PW6> » 

P3WEP7 (PW7) *SPEED7(SP7| .PMXTISPT) .FUEL? ( SP7 «PW7 > . 

1 P0WEP8 (Pm8 ) tSPEFDHISPH) , PMX8 ( SP8 ) .FUCL8 I SP8 »PyI8 I • 

6P0WE9 10 (PM 1 0) ♦SPEEDIO(SPIO) ,HSHC 10 (SP10.PW10) .BSC010 ( SP 10«PW 10 ) 
6 *BSNOX 10 I SP 10.PW 10) «BSCS10(SP10»PW10> 

DIMENSION HPMXINEM) 

DIMENSION KEVMXINE.M) 


«•«*•*•••• LTYPsl CHEVY VKjA 4-CYL 1975 ********* 

DATA PMX1 /O, ,24,»36,«50.»70.«86.»100./ 

DATA POWEH I/O. .5. * 10. . 1 5. .25. .50. *75 • , 100. 1 / 

DATA SPEEDl/O.. 22. 7.34. 1.45. 5. 63. 6, 81.8.100.1/ 

DATA bSFCl /3.. 3. 2. 4. . 2*3.2. 2*3. I »2«2. 8.3.6. 2.8 .2.85.2.68. 

6 2.7. 2 . 2 » 1.95. 1.84.1. 52.1.55. 1.49.1. 64, 1.45. 1.32.1. 

6 l. 11, 1.03. 1.12.1. 17. 1... 979.1. 04. .^ 6 »;’3..64..873. 

b , 7 .. 596 .. 631 .. 526 ,. 525 .. 61 7 .. 606 .. 5 .. 461 .. 5 .. 488 .. 497 . 

(, .5239.5S39.69.5839.63l9.5769.5209.5629.517/ 

******* ET*P=2 DATA BELOW FROM BRINGS 6 S 253617 ******* 
OATA POWER^/O. *25. 950.97b. *100.1/ 

DATA SPFED//0..50.. 58. .3966. 7.76.903. 3991. 7.100.1/ 

DATA BbFC2/fl*5. «2..1o67*l. 59.1. 51.1. 41. 1.39.1. 36. 1 .A 1 % 

6 1 9 b . 1.07.1 .09.1 .06 9.92 A 9.897 9.081 9.905% 

6 1. .. 92 8%. 89 9.0369.7529.76 . .737. .795* 

6 1. ..852 9.796 9.76 9.609 9.67 9.65/9.656/ 

*«*««# DATA FOR CHEVY 350 CJD 1975 «•**** 


/O. 9 3. 9 10. . 25. .60. *60. 9 75 .9 100.1/ 

/ 5 . .26.3. 36 .2.39. 6 . SO .967. 9.73.7. 06. 8.1 00.1/ 

« .28.6.39. .60. . 64 . 6 .76. I 988 ® 1 .96. 9 1 00. / 

2*3.61 .5.31 .3.6893.92.3.5695.0896.0795.559 

2*3.6195.3193.6093.92.3.5695.0896.07.5.559 

2* *956 .1.68.1. 31.1. 36 91.33.1.5791. 56 .1.76 9 
2*903 3. .698 . .791 .. M5 . .7 16 9 .822 9 .88 3 9 .806 9 

2*. 569 .. 562 .. 512 9 . 552 9 . 53 .. 525 9 . 696 *. S92 . 

?*.562 . *677 . .526 9.5 . .538 . .527 . .506 9 .629 . 

2*. 5? 3 9.663 9.566 ..51l9.6939.5329.5659.618. 


data power/ 
data speed/ 

DATA PMX2/3 
DATA BSFC2/ 

6 
6 
6 
6 
6 
6 


3-24 


640 

650 

660C 

670C 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800C 

810C 

820 

830C 

840C 

850C 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000C 

1010C 

1020C 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 


l ?*.548 . .538 * *442 , .506 » .49 I ,. 51 1 ,. 536 «« 56 1 / 

^OATA PMX3/0., 23. 5, 51. 1,64.6, 70.8.85.1,86. 3 *100., 92. 6*89.8/ 


«•••»•*•*« l TYO = 3 DATA F MOM HONDA C.VCC 1975 ********** 

DATA P0«tR3/O.,lO.,20..30..40..50.,60..70..80,.90.*l00.l/ 

DATA SPEED3/0..1B. 2.36.4,45. 45, 54. 5.63.6,72.7, 8 1.8 *90. 9, 100.1/ 

OAT A BbFC3/10t*5.«2.»1.7«l.9»l. 5*1.9, 4*2. ♦1»96. 

*, I.,. 98 *.95 *.855*. 975. 1.03, 1.12 *1.14 *1.4 *1.7, 

. ,V*. 86*. 79*. 697,. 795,. 7«5,. 865 ,.81,. 975, 1.47. 

. ,b . . 76* • 7 l « .6 1 * .687 * »f>59 * . 72 * .655 , .825 « 1 .27 * 

, . r, .655, .655. .554, .62. .581 « .62 * . 585 * . 725 * 1 .09 * 

# .6,. 5 72 *.54 7*. 508 *.56 *.54*. 55 *.554*. 665 *.942, 

6 *6,.525*.491 *.468, .51 «»516»»516,»535,»625«»821* 

t :;,.4;7,.44l..44,.47*.505..505,.525..625 ; .729^ 

i *t>9.4B3**49b8»49 8#5 I M*b9»b58et>? l 39«825t*627/ 

OATA PMX2 /O* $ At>#9 *^7* 3 *67 * 79* 2 ^94* 1 • 100« / 

data HEVMX/5000., 5500., 5500., 5600 ^ B ° 0,/ 

OATA HPMX/90. * 120. *51 . 1 ,98. ,87.7 .68.7*90. * 105. * 2.* 

«»«•»•»• «*tTYP=4 2.3 l PINTO 1975************ 

OATA PMX4/0., 15.9, 19.9, 25. 9, 33. 7,47 4,57.1,71.4,82.1*44.3/ 

OATA POWtP4/0..l0..20..30.,40.,50..60.,70.,80..90.,100.0/ 

OATA SPEE04/0.. 14. 3, 17. 9, 21. 4.26. 8. 35.7,44. 6. 53.6,62. 5. 101. 
OATA H5FC4/2* 1 . 35 , 1 .8 , 1 .38 , 1 .7 ,2 . 1 » 2 . 7 , 3 .4 , 3.6 ,4.0, 

6 2*1.12 * 1.25,1. 07, U.l. 05. 1 . 1 , 1 . 1 * 1 •? * 1 »4* 

I, 2«»B7S8.89*.798*6ft%*67«.ft9*.70**73*.76* 

6 2*. 675*. 67,. 607,. 56*. 56,. 58,. 575,. 54,. 6, 

6 2*. 57,. 56,. 552*. 51,. 5*. 51,. 515,. 53*. 55, 

fc ?*»52, ,5, .5, ,465, .475, ,475, ,476, ,483, .495, 

6 /*. 5 15*. 47,. 472,. 45*. 45,. 45*. 45,. 4 7,. 48, 

6 2*. 52, .46, .46, .43, .43, .43 3, .445, .45, .47, 

6 2 *. 528*. 47,. 466,. 425,. 43,. 432*. 45,. 45.. 46, 

fc 2*. 54,. 495.. 47,. 42,, 44,. 4 31*. 46.. 465,. 475, 

fc 2*. 56,. 475,. 42,. 45.. 431.. 465,. 468.. 48,. 5/ 


•*«**»*** »ETYP=5 PINTO 140 C1D 1977****** 


DATA PMX5/0.. 6., 6. 96. 17. A, 30. 9, 44. 1 ,56. 7, 66.6,75. 6. 86. 8, 100. 01/ 

OATA SPfH'5/0., 15. 62. 17. 71, 20. 83. 31. 25, 41. 67, 54. 17, 62. 5. 

6 OATA*P0WfP5/0l l .10.,2O..30.,40..50.,60.,70.,80..90..100.l/ 

OATA EUEL5/2. 5, 2. 5. 2. 7, 3. 1,4. 3,4.8.5.2,6.0.8.0,10., 14. 2. 
b 2. 5, 2. 5, 2. 8,3. 2. 4. 5. 4. 795. 6.4 .8. 157. 9. 243. 11. 563. 16. I 9. 

6 2.6,2.6,2.9.3.3,4.8,5.511,7.7.9.824,10.699.14.044.18.701. 

6 2. 9. 2. 9, 3. 3. 4. 2. 6. 4, 8. 915, 12.. 15. 369, 17. 506. 19. 046.25.809, 

. 3. .3. ,3. 5, 4,7, 7.2, 10. 611, 13. 7, 16. 819, 1 9 . 496 , 22 . 3 3 ♦ 28 . 98 . 

3 • h * 3 • l 1 « • l b • ? % 1 7 • « 19 • A0<» • 25 *AOA • 3 3 • b )l • 

t, 4.. 4.. 5. 3,12.4,16, 5. 21.. 28. 1.33. 5. 37. 6, 43. 7, 49. 7/ 

MrwrKOf-S OirSFL 18 3 197b**** 


1 i90t**********ETY''-6 MEHCKDtS OlfbFL 183 Ul) 1975**** 

\lTo C DATA PMX6/0., 20., 31. 3,44. I, 60. 3. 75. 1 .91.4, 94.6, 100./ 

1220 OATA 5PF1 06 /0.,1 7.5,27.5, 37.5, 50., 60., 75. *87.5, 10 • 

Ip30 DATA P06t*<6/' 10. .20. .30 • ,40. .50. .60. .70. ,80. .90. , 100. 1 


GENERAL 1 $ ftfeTBIC 


12*0 
1250 
1260 
12 20 
12»0 
1 290 
1300 
1310 
1320 
13 30 
1360 
1 350C 
1360C 
1370C. 

1 360 
1 390 
1*00 
1*10 
1620 
1 <i 30 
1**0 
1*50 
1 460 
1*70 
UflO 
1*90 

1500 

1510 

1520 

15 30C 
1560C 
1550C 
1560 
1520 
1580 
1590 
1600 ' 
1610 

1 f>20 

16 30 
1660 
1650 
1660 
1620 
1 680 
1690 
I700C 

17 IOC 
1720 
1730 
1760 
1750 
1760 
1770 
17B0 
1790 
l POO 
1810 
1820 
1830 


:)A1A 1- un 6 /l,0«l.*l, /.*?•')« 3»6*5.5«H«P«9 # *13«9» 

6 l»*l»«2.2*3.HI>rt»6.7«fc.9?3*10.»ll»»16,ft26« 

6 1 . .1... .b5«*. 9 32.* ,.9.l6l .1 1 .3.10.093.16.21 . 

6 1 ..U. 3.6.5. 616. ^.25. 10.759, 12.6. 13.891 ,17.792, 

6 1..1..6.1 .6.28,8.6.1 1.806. 16., 17. 206, 18. 997. 

6 1. ,1. ,6. t. 7. 1R1 .9. P.12.606. 16,6,19. 188,19, HI 

6 1.06,1. 0 5 .6. 6 .8.33.11.1 ,13.96 8.17.2,20.967,22 .066, 

6 1.1,1.1,6.3,9.6,12,6.16.311,19.1,23.616.26.766. 

fc 1.2.1.2,7.1.10.626.13.9,18.313,21. 7 . 25.005 « 30. 322 . 

6 1.3, 1.3. 8. l.ll. 66 9, 15. 6, 19. I 86, 26. 8.27.06,32.6 32. 

6 1.6. 1. 6, 9o6, 13.6, 1»- .8, 19.5*27. 6, 32. .35. 6/ 

OOf.TUC 161 1978***** 


•)A1A t^* , X7/ (i. ,2. »2 2. 6.35., 52. »66. ,7<«. 88.82. 3.95.8.100./ 

' ) A T A SPH-l’7/0. . 1 -. 7 7,22.72 .36. 09,* 5.65, 56.81 .63.63.72.7?. 

0 86.36, ICC. 1 / 

data ho* E * 7 / o , , l o • * 2 * • • , 3 r * • , 4 • * 6 () • * 6 f* • * /o . * 80 • • fl o • * ioo» 1/ 

l«3 r »l , 1 » 39 1 , 2 . H i *4 0 *6.9* 7 , *8.6*9. *06*10,886, 13,397, 

l. 986,13. 60ft. I 6. 97* 

1.678*1, 6 78,3.73^, 6,9,8, 6*10, 687, 12.2*14,037, lft. 677, 18.7. * 

l .68? * 1 ,682*4.608 *6* 9 *9*8 * l 2 32 * 14. « 16* 11 * l 9 , 308 • 2 1 • 3 * 

1.783*1. 783*6.249*7. 9 *11.3*14. 163*16.9*18.174*2?.122«?3.9 • 

i*677*l.M 7 7*5.696*9.)*i?. 7 *ie.l*17„9*20.883*?5.492*27.6* 

1. *67 *1.96 7 *6. 16? *10. 3* 14. 4, 16.388*20. 2*24.404, 29. 492 *32. 382* 
2. 01 c * 2 . r ' 16*6,947*11. 7, 16.3*20. 232*22.6*26.436,3?.699,36.?18, 
2.06 a%?.066*8.374*13.S.IH.6,?2.9*26.6*29.117*36.3R4*3R.8* 
2.1*2* 1 *10.4*1 7. 1 *22.6*17.9,32.2*36.2*42.6*47.6/ 


*#*•*£ TYP=> CHCVY 2t> 6 CYl ******* 


DATA MMX H/(.* 6 ,4,12* '*44, 8, 66,67*77. 18*87. 0 3*96.R 7 *l 9 0,/ 

DATA bt-M t I m / 0 • • 1 4 • 6 * 2 3. 7 * 3 1 . 6 * 39.6 * 66 • 3 * 7 L , » 9 9 * • 1 00 • I / 

DATA POwE w m/ 0, *10, *2 r ’.*39.,4O..5O.*6O..70.*BO. *90. *100.1/ 
DATA f-JfL^/3.4*3.4*3.t*4, *6.3, 8.6*10* 5*14. *16.* 

6 *.4*3. 4, <*.112*6. 633*6.8*11.7*1 <;.6*19.?01 *17,968* 

6 *.4*3*4*3,913*7,1 16*8, 633*14*637*14, 987*21. 06 *21.61* 

tr i*4 * 3*4 * 3.996 ,8.34 l « 1 n.4 1 8 * 1 7* 196* 18*06 *22. 32 l *2 3*826* 

6 3.4 , 3.4* ^ .032 *9,043* 12.626* 19.6 *21 .4 1 ,2 7. 7S1 *26.484 * 

6 3. 6 *3. 6, 4. 4 66 *10* 242, 16. 32 7 *? 1.7 79 *23. 968, 3 1.2 17 *32. 081. 

6 3.6*3.6,6.071,1. ,833 *17. 92 3.2 3. 3.26*5 *33. 776, 36. 2 34, 

6 3. 6, 3. 6,6 .677* 1 3 • 462 * 1 9 . 669 , 2 3 * 307 * 2 9 . 89 7 * 3 7 . 769 * 38 . 6 7 6 , 

6 3.8 * 3.8 *6.70 7, 14.691 ,20.082 ,24,266 .34.023*41.921*48.228, 

6 4. *4, ,6,688 * 17.676*22*046,29. 1 34,39.966*46.646.68.274, 

6 4.6*4. 6*6.7, 23.3, 27. 9*38.1, 48.* 64. *64. 6/ 


V* L'.GIM LTYP 
DATA POER9/10. 
DATA SPMD9/16. 
686.7*100./ 

DATA P v *9/1 1.1* 
688 . 1 , 100 . * 100 ®/ 
DATA hS^C9/3.06 
67*2.16*1.6*1.6* 
61,4*1.061 ♦ * B66 , 
61 .03,. 769 « • 66 * . 
6.H0,»61 7 *.639*. 
6. 72*. 6 66, .613*. 
6 .66*. 626, .486*. 


♦ 14* *29. *43. *67. *72**86. *100*/ 

♦ 2 0. *26. 6 *33. 3*** r . *47. *63. *60. *67,, 76.7* 
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1890 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1990 

1950 

1960 

1970 

1980 

1590 

2000 

2010 

2020 

2030 

2090 

2050 

2060 

2070 

2080 

2090C 

2100 

2110 

2120 

2130 

2190 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2290 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2390 

2350 

2360 

2370 

2380 

2390 

2900 

2910 

2920C 

2530 


fc.65,.521 ..976».996,.997.,995,,95?,.49 1 , . 952 . . 968 . . 98 7 , . ,5? H / 

DATA IS»U9/B.,3. 1 ,3.9.3.65,3.6.3.6.3.65. 1.5. 3.9*3. 1. . • • 

SH 1 * 'X . m ^ » 33 * 3 #4 « 3 • 4 * 3*4H 9 3 O 3 9 3 • ?4 • 2 #93 9 / • 79 *2 • • 

69^3, 2. 92, 2. 66»2. 65, 2. 73. 2. 68. 2. 8 1,2. 62, 2. 52 »2.92,2.2942.58, 

ti 7 ; 1 1 ? , 9 _ 1 , p , *76 « ? # 49 * ? • 4 7 * 2 • 19 *2 « 34 *2 *0 B * 2 »0? * c • 3 • 

t9, 68, 1.85,1.19, 1.98,2 .05, 1.98, 2, 13, 1.89,1. 8 5, 1.7 7,1. 6 7, 1.78, 
69.29,1.82,1.7,1.99,1.93,1.75,1,95,1.72,1.66,1.62,1.53,1.59, 

65.. 2.1 .1.75.1.81 .1.99. 1.99. 1.7 7. 1.93. 1.52. 1.98. 1.37. 1.38, 

DATA USC09/ 1 20. .60, ,97. » 35. ,93. ,90. .56. ,55. ,59. ,5 1 . .95 . , 79* , 

685.. 99. .90. 5. 32. 8.37.. 36. 9. 91. .96.9.97.7.95.5.38.7.67., 

643«*27**27.*23*4*24.*26.7929 # 6*3?*b*28*ft*2f**26*4*4&*7* 

637.. 19. .19. .17. 7. 2 2 .7. 23. 1.29. 5. 23. 5. 23.2. 20. 3. 20. 2. 30. 8, 

635.. 16. 6. 17. 6. 18.. 20. 7. 20. 9. 20.3. 19. 3. 17. 9. 18. 2. 18. 2. 21. 6, 

632. . 15.5. 17.1. 18, V *20.7. 18, ,17, 5,17,9. 16,6, 17, 2, 17, .19,, 

687., 17. 3, 16. 9, 19. ^ 17. 3* 16. 2. 15. 8,15.8, 16.2. 15.7,15.7, 17.6. 

6150.. 29. 8. 17. 6. 16. 8. 16. 7.15. 3. 19.9. 15. 9. 15. 9. 19. 9. 19, 15. ' 

DATA DSN0X9/2. 2. 2.55. 2. 75, 2. 8. 9. 5, 6. 6, 9.. 9. 2. 13.9, 17.8. 21. 8,1 

62. 3, 2. 6, 2. 9, 9. 2, 6. 2,7. 1,9. 5, 9c83, 13. 9, 19. 3, 22. 9, 17.5, 

62. 5. 2. 8. 3. 75. 6. 9. 8.5. 9. 3. 1 1 . 7, 12. 8, 15.7, 2 1.7, ,3.8, 22. 3 

62.7.3.3.5.1.8.9.11.1.11.6.19.2.15.7.18.3.22.9.29.8.25., 

63. 2. 9. 2. 6. 35. 11. 9. 13. 9. 19. 1.16.9. 17.. 19.3. 22. 8. 25. 3. 29 . 

65. 5. 6. 75.7.25. 11. 1 .1 3*2, 13.5, 15.5, 16,, 18..20.3. 22. 5.23,2 . 

66. 5,7. 35,8.2, 12. 1,19. 1,19,5, 16.2, 16.9.1 7.8, 2 1.1. 22.6,2 ., 

68. . 8. 69. 9. 6. 12. 9. 19. 9. 15. 5. 17. 3. 17. 5. 18. 7. 22. 1.23. 0.23. 5, 

OAT A PMA 10/ 16.8,28.8,97 ,6 ,63 .0,76 .6,99.6,98, ,100./ 

DATA SPtLDlO/20«*30e*40***>0**60**80**90**100*l/ 

DATA PO^fcR 10/ 10», 20, ,30, ,90, ,50, .60, .80,, 100,1/ 

DATA BS^C 10/ 1 »08 • »97 • • 84 • • 84 • *84 * *95 * 1 «075 • 1 • 1 5 % • • 7 

6©66**66*«66*#76*»8B5*l»0* 

6*69*«60**54*.54*#64*#64*#74*#83b* 

6* 58* *5 *.485 **485 *.485 *.565 **64 *.725* 

6* 540* .4 70*.465*.465*»465..51 *.583**65* 
6*515*.465*.45*.45*.45*.485*«54*.605% 

50 **455 **445 *.445* .445* .465** 495 *.565* 

6*525*. 49 *.48 *.48* • 48 *.49*. 50,. 57 
6 / 

DATA B5HC10/.50*o50*«50*.53*.53*.45«*23**26*.38* 

6 ,38,. 38,. 91,. 95.. 62,. 50,. 29,. 30,. 30,. 30,. 39,. 91,. 87,. 60,. 3 15, 

6 .29, *22, ,22, .26, ,37, 1,08, ,65, *39, .21, .195, .175, ,19, ,3 ,1, 

6 .69,, 35,. 20,. 175,. 195.. 19,. 22.. 86,. 71,. 37,. 17,. 15., 10,. 10.. 13.. 95. 

6 ,61, . 35, . 19, , 10, ,0E,. 08, .08. ,20, .29. .26/ 

DATA P SNOX 10/5 • 7, 5.7, 5. 7, 6.2, 7.3, 10. ,10. 3,10.9, 9. 9, . , . 

f t ? a y .9. 1 *9.0 * 3.7 *3. 7 « 3*7 *4*2 *4©7 *6* l *8*4*7# r « 
t ^.SloS.S 3.9 3.9 6.6 7 3,6.8, 2.6,2. 6,2.6, 3.0. 3.9 ,5.9 .6.8 ,6.2 . 

I 2.^.2.9:2.9.2.7:3.1.5.3.6.2.5.6,1.8,2.0.2.0,2.3.2.7,9.0.9.e.9.5. 

6 1.2, 1.5, 1.5, 1*9, 2. 2,2.8, 3.1, 3.1/ „ , ?,2.6, 

DATA BSC010/9, 0,3. 7, 3. 1,3. 5, 9. 5.. 5,. 25.. 55, 3. 2. 2. 8. 2. 2 *2. 6. 

6 3.9, .55, .30, .55. 2.6. 2. 1.1. 6, 1.9. 2.9, .80, .95, .55.2.3. 1.6, 1.2. 

6 1.9, 2, 0,1.0 ,.60,. 55, 2. 3, 1.5, 1.1 .1,2. 1.9. 1,0,. 70,. 5 

6 2.B,1.5,l.l,l.l,t.6*l.O,*75«,37,9,9,2.l,Ul,l*l«l-,T«»5* 

6 #60 * • 3 f *6* 7 *6*7 * l «9 * i • 5 * i • 3 * *25 * a 30 ♦ #26/ 

DATA B5<- 510/19. 0,6.0, 6. 0,5,3, 6.0, 10. 5, 10. 5. 12, 0*12,0. 9, 1.9,1 
6 3. 6, 9. 3, 9. 3, 9. 3, 10. 5, 10. 8, 2. 9, 2. 9. 2. 6. 3. 9, 8. 1.8.1. 8.1* 

6 10. 8, 2 *5, 2. 5, 2. 3 •3.0.7.2,7.2,6.0,12.0.2.6,2.9,2.1 .2. 9. 6. 3, 

6 6. 3, 9. 3, 13. 9. 3. 5, 2. 5,1. 9, 2. 8. 5. 2, 5. 2. 3. 9 ,18.0. 7. 9.3. 2, 1.6, 2. 2 3, 

0 3. 0.2.1,25,, 10. 0,8. 5, 7. 3, 2. 7, 3. 2 ,2,3, 1.5/ 

*•••••••*<» ENOINfc OPCP MODE »»»«<>»**»* 

1SUB=9 
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GENERAL^ ELI6TRIG 


54 

50 


55 


2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
263C 
2640 
2650 
2660 
2670 
2680 
2681 
2682C 
2683C 

2684 

2685 

2686 
2690 
2700 
2710 
2720 
2730 
2740C 
2750C 
2760 
2770 
2780 
2790C 
2300C 
2810 200 
2820 
2830 
2840C 
205OC 
2860 300 
2870 
2880 
2890C 
2900 400 
2910 
2920 

2930 500 

2940 

2950 

2960 600 
2970 


MM=ETYP 
IF (F.ON) 55*55. 

IF (WE.LT.RIDE > *t=WlDE 
WF=WE/W£MX«tOQ. 

IF (WF«l*T • 100 ») WF s 99 .999999 
IF ( 1 02. LO. 1 KiO TO 1000 

IF < IESF #FU, 1 ) FUEL = FUEL + F STRT < MM ) »PEMX*60fl . 2H/HPMX (MM) 
IfiFsO 

IF(IEIF) ..50 

CAUL LlN3(-l*l»PE*l.) 

CALL LIN3I-1.2.WF .1.) 

IF(PF)60«* 

60 TO ( 100 .200.300.400 *500.600 .700 .800 .850.870) .ETYP 

PCONS=F l OLE (MM) *PLMX»60H , 28/HPMX ( MM) »DTP/3600. 

IF.ON= ICON* l 

fuel=fuel*fcons 

WE=WIDF 

PE=0. 

EENG=0. 

return 

WE = 0. 

PESO. 

HSFC=0. 

f;f.ng=o. 

FCONSsO. 

I F ( I HO.LO.O ) RETURN 


60 

62 


100 


HEATER 6 DEFROSTER POWER REQUIREMENTS 
0REQD=0HEAT*DTP/ ( 3600.40C0NST ) 
FC0NSsQRb.00*454.5 
FUELsFUtL*FCONS 
RETURN 

WRITE ( 6 .62 ) PE .PMXfc »T . IGE AR • It YC .DCTYP . 1 1 
FORMAT (IX.* ENG PWR NEGJ * .F 7.2 .2F 7» 1 .4 1 5 ) 
PE = 0. 

GO TO 54 


****#»»* ENGINE * 1 BRANCH ******** 

CALL PFCAL(PMXE.PEMX.PF) 

CALL BL IN ( SPEED 1 .POWER 1 .P.5FC 1 «SP 1 »PW 1 «WF .PF .USFC) 
GO TO 900 

ENGINE #2 BRANCH *»»»*•* 

CALL PFCAL (PMXE.PEMX.PF) 

CALL BL IN ( SPEED2 .P0WER2 .R5FC2 .5P2 .PW2 .WF ,PF ,B5FC ) 
GO TO 900 

•«»•»•*«»• ENGINE #3 BRANCH *»»*•*** 

CALL PFCAL (PMXE.PEMX.PF) 

CALL BL 1 N ( SPEE03 .POWERS .05FC 3 . 5P3 .PW3 «WF «PF »BSFC) 
GO TO 900 

••»e*»**«tNG!NE *4 HRANCH********* 

CALL PFCAL(PMXE.PEMX.PF) 

CALL BL IN ( 5PEED4 .P0WER4 .BSFC4 . SP4 .PW4 .WF .PF.BSFl) 
GO TO 900 

CALL PFCAL (PMXE.PEMX.PF) 

CALL BL t N ( SPEEDS .POWER 5 .FUEL 5 .SP5 *PW5 *WF .PF.BSFC) 
GO TO 920 

CALL PFCAL (PMXE.PEMX.PF) 

CALL BLINISPEE06.P0WER6.FUEL6.SP6.PW6.WF.PF.B5FO 
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f ' ■ 
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GENERAL® ELECTRIC 


2960 
2990 
3000 
3010 
3020 
3030 
3090 
3QS0C 
3060C 
3070C 
30B0C 
3090C 
3 1 00C 

3 1 IOC 
3120C 
3130 
3190 
3150 
3160 
3170 
3160 
3190 
3200 
3210 
3220 
3230 
3290 
3250 
3260 

32 70 
3260 
3290 
3300 
3310 
3320 
3330 
3390 
3350 
3360 
3370 
3380 
3390 
3900 
39 IOC 
3920 900 
39 30C 
3990C 
3950 
3960 
3970 
3980 
3990 
3500 
3510 
3520 
3530 
3590 
3550C 
3560 905 
3570 


00 TO 920 

TOO CALL PFCAL (PMXE .PE MX »PF 1 

CALL BLlMSPEtD7.PQWCR7.FUEL7.SP7.PW7.WF .PC *»-‘FC) 

GO TO 920 

BOO CALL PFCAL (PMXE .PEMX.PF) 

CALL ML I (9 < SPEEDS .POWER!) »FUEL« *SP« *PW« *WF «PF «HSFC I 

00 TO 920 

»*« EMISSION CALCULATIONS «*»* 

NC=HYDROCARBONS. CO = CARBON MONOXIDE* NOXsNITRIC OXIDE 
hfc HC . NF C U . NE. NO = CATALYST CONVERSION EFFICIENCY 
CMHC*EMCU«EMN0X = GRAMS OF EMISSIONS 

EMISSION CALCULATIONS 
COME TO H50 IF ETYP=9 
850 CALL PFCAL (PMXb«PtMX*PF> 

CALL HL 1 N ( SPEED9 .P0WER9 .BSFC9 »SP9 *PW9 ,wF »PF «OSFC) 

CALL OL 1 N ( SPEED9 .P0WER9 *BSHC9 . SP9.PW9.WF ,PF .HSHC ) 

CALL BL IN (SPE.tD9.P0WER9»BSCU9,SP9»PW9,WF ,PF ,BSCO) 

CALL BL l N ( SPELD9 .P0WER9 »BSN0X9 * SP9 «PK9 * WF «PF « BSNOX ) 
DTXZ=DTP*PE* 1.39 102/ 3600. 

TCHWsTCHwO* ( 1 . 0 -EXP (-TSAV/CTCT) ) 

EFATsl.O 
EBOTA=ETON/TCHW 

IF (EHOTA.LT. 20.) F.FAT ~ 1 .0-E XP (-E.HOTA) 

EFsEFOHC*EFAT 

EMHCsEMHC.BSHC* ( l .O-EF ) *DTXZ 
EF=EFOCO*EFAT 

EMCOsEMCO.BSCO* ( 1 .0-t.F ) *OTXZ 
EFsEFONUX*EFAT 

EMNOX=FMNOX»BSNOX* ( 1 .O-EF) *DTXZ 
00 TO 900 

CALL PFCAL (PMXE.PEMX.PF) 

CALL BL IN (SPEED10. POWER 10.HSEC10.SP10.PW10.WF .PF.BSFC) 
CALL BL IN (SPEc DIO. POWER 10.HSHC 10 .SP 10 .PW10.WF .PF.BSHC) 
CALL BL 1 N ( SPELD1 0 .POWER 10 .HSNOX 1 0 *SP1 0 .PW 10 »WF «PF .BSNOX) 
CALL HL IN ( SPEE D10.POWER 10.HSC010 .SP 10 »PW 10. WF.PF .BSCO) 
CALL BL 1 N ( SPEED 1 0 .POWER 10.BSCS10.SP10.PWIO.WF.PF .BSCS) 
DTX2=DTP*PE* 1.39 102/ 3600. 

EMHC=EMHC*bSUC*DTXZ 
EMCO=EMCO.BSCO*DTXZ 
EMNOX=EMNOX*DTXZ*HSNOX 
EMCS=EMCS*USCS*DTXZ 

FC0NS=BSFC*PE*60B.2B»DTP/3600. 

heatf.h/de FROST! H 

BURNMsO.O 
T 1 MMs 3600 . 

IF ( IHD.EQ.O) OUT 0 90S 
EFFENG=0 . I 39/BSFC 
EN0M=FCl'NS/959.5 
OOUTs ( 1.0-EFFENG)»ENOM/3. 

OREOD=OHLATWDTP/ (OCONST*TIMM) 

ONETsOREOD-OOUT 
IF (ONET.LT.O.O) GO TO 905 
BURNMsONET *959 , 5 

euel=fuel*fcons*burnm 

EENC«s2595./ <BSFC*190.) 


670 
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GENERAL 4$ ELECTRIC 


910 


920 


3980 
3990 
3600 
3610 
3620 
3630 
3660 
36SQC 
3660 
3670 
3680 
3690 

3700 1000 CALL 
3710 60 TO 

3720 1010 CALL 
3730 60 TO 

3760 1020 CALL 
3750 60 TO 

3760 1030 CALL 
60 TO 
1060 CALL 
60 TO 
1050 CALL 
60 TO 
1060 CALL 
60 TO 
1062 CALL 
60 TO 
1066 CALL 
60 TO 
1066 CALL 


3770 

3780 

3790 

3800 

3810 

3820 

3830 

3860 

3850 

3860 

3870 

3880 

3890 


IF (BTP.EQ.PT > I EQN n IEGN* 1 
QAR (5*193) sOAR (5.193) ♦PF/lOO. 

OAR (6 ♦ 193) gQAR (6* 1931 ♦WF/ 100. 

TEEN6°TEFN6*PE*PTP/3fcOO. 

CALL LIN31-1 * 12 «PP » l • > 

CALL L|N3(-1«13»WF»1.) 
return 

FCQNS=BSFC*PTP/36QQ»*653»592*1 »36 102*PEMX/HPMX (ETYP) 

^ HQSFC.GT . ,QQ1 )EEN6e2565.<*PE*1 .36102/ <BSPC» 190. > 

60 TO 910 

a 010. 1020. 1030*1060*1050.1060*1062* 1066 .1066. 1060) »ETYP 

LIN2 ( SPEED 1 .PMX1.SP1.WF .PMXE) 

1070 

LJN2 (SPEED2.PMX2.SP2.WP «PMXt) 

1070 

LIN2 (SPEED3.PMX3.SP3.WF »PMXl> 

1070 

LIN2 (SPEED6.PMX6.5P6.WF .PMXE) 

1070 

L1N2 (SPEEDS. PMX5.SP5.WF ,PMXF ) 

1070 

LIN2 (SPEED6.PMX6.SP6.WF ,PMXt ) 

1070 

LIN2(SPEED7,PMX7.SP7,WF .PMXE) 

1070 

L IN2 ( 5PEED8.PMX8.SP8.1.F *PMXL) 

1070 

L1N2 (SPEED9.PMX9.SP9.WF .PMXE) 


390 


3910 

X420 


60 TO 1070 

1068 CALL L1N2(SPEED10.PMXIO.SPIO.WF.PMXE) 
1070 PMXE =PMXt*PEMX/ 1O0* 

RETURN 
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010 SUBROUTINE MTRdDU 
020C 

025C *#•*«*##»»•«***•##*** »»•»«•••••« ••***«#•*#«*#**»****# 

027C THIS SUBROUTINE IS USED TO SIMULATE THE ELECTRIC DRIVE SYSTEM OF A 

030C HYBRID Vfc'.ICLE 

100C 

UO ISUBs7 

120 IF ( WM*LL «W 1 DM) WM = W I DM 

130 WF sWM/WMMX* 100# 

noc 

1S0C PROGRAM VARIABLES 

1 feOC IBASE s BASE CURRENT 

170C I ARM s ARMATURE CURRENT 

180C IFLD s FIELD CURRENT 

190C IBATT s BATTFRY CURRENT 

200C IAUX s AUXILIARY CURRENT 

2 IOC IMGE = 0 IF MOTOR I NG NO REGENERATION 

220C IMFG = 1 IF BRAK ING/RLGENERAT ION 

230C JELEC = 1 DC MOTOR WITH SEPERATl. ARMATURE AND FIELD CHOPPER PCU 
240C AND FIELD CHOPPER PCU 

250C JELEC s 3 DC MOTOR WITH ONLY ONE CHOPPER USED IN STARTING 
260C MOTOR BY CONNECTING TO ARMATURE AND LATER SWITCHING 

270C TO FIELD CIRCUIT 

2A0C JELEC s -l AC MOTOR - INDUCTION MOTOR DRIVE SYSTEM 

290C JTORQ r 1 IF DESIRED POWER/TORQUE CAN BE PRODUCED 

300C s 0 IF DESIRED ELECTRIC POWER/TOROUE CANNOT BE PRODUCED 

3 IOC MODE = 1 IF ARMATURE VOLTAGE CONTROL IS BEING USED FOR DC MOIOR 

320C MODt s 2 IF FIELD VOLTAGE CONTROL IS BEING USED FOR DC MOTOR 

330C MODt s 3 FIELU CONTROL WITH FLUX SET AT MINIMUM VALUE 

340C MON = G MOTOR IS OFF COMPLETELY 

350C MON = 1 MOTOR IS ON PRODUCING POWER 

360C MON = 2 MOTOR IS ON* FIELD EXCITED NO ARMATURE VOLTAGE* 

370C ROTOR SPINNING AT SPEED WIDLE 

380C MON - 3 MOTOR FIELD EXCITED NO SPINNING* NO ARMATURE EXCITED 

390C KE = SPEED CONSTANT 

400C AKT = TORQUE CONSTANT 

A IOC FLUX s FLUX 

420C HMslNERTIA CONSTANT 

430C RST = STARTING RESISTOR 

AAOC RA = ARMATURE RESISTANCE 

A50C RB = BATTERY RESISTANCE 

460C RE = FIELD RESISTANCE 

A70C PE = TOTAL tLECTR ICAL POWER DEVELOPED 

480C WFL = FRICTION POWEH 

490C W = WINOAGE LOSS POWER 

SOOC WCL * CORE LOSS PO 

5 IOC WSL = STRAY LOAD LOSS POWER 

520C WEL = TOTAL POWER REQUIRED TO OVERCOME LOSSES 

530C ,'MECH = TOTAL MECHANICAL TOPOUF. ON POWER RFQUIRLD 

5A0C PBASE=BASt POWER IN WATTS 

550C T = TIME 

560C DT = TIME STEP SIZE 

570C WCHOP = CHOPPER POWER LOSS 

580C CEME = MOTOR HACK EME 

S90C VARM = ARMATURE VOLTAGE 

600C VCHOP s CHOPPER VOLTAGE 

61UC lHATT s BATTERY VOLTAGE 

620C VBHUSH s VOLTAGE DROP ACROSS BUSHES 

630C WM/KPM s MOTOR SPEEO 

640C ACCM = MOTOR ACCELERATION 
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6S0C 15 
651 
66 it 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 

780 200 
790C WHA 
B00C I F C 
810 
020 
830 

040 <*00 

041 
850 
860 
870 
080 
B90 
900 
9 1 0 
920 
9 30 

940 999 
9S0 
960 
970 
980 
990 
1000 
1010 

1020 500 

1021 
1022 
1030 
1040 

1050 550 

1060 

1070 

1000 

1100 

1110 570 
1120 
1130 
1 140 

1180 600 
1101 

1190 700 

1200 

1210 

1220 

1230 


MOTOR/GFN nr;? MON = 0 IF MOTOR OFF 
hi>5" 10 . 

IF (MQN.C.l .1) GO TO 200 

WMsO.O 

PM - 0.0 

FLUX =0.0 

VCMOMsO.il 

I ARMsO.O 

1 OAT T = 0*0 

PHAT T sO.ii 

MHAT2sO.O 

AHAT 2 = .0 

IFlO = ()•(» 

GOTO 999 

IF ( 101 .EU. I ) GO TO 400 
T TYPE OF MOTOK? 

JELEC.LE.-i ) C ALL ACMOTO 
IF ( JtLLC.Gt.DCALL DCMOTO 
IF (DT. tO. DTP) IMON=lMON*l 
GO TO 999 
PF AT = 1 .0 
CALL ACC 

IFUTR.lu.l) CALL DCMOTO 
IF < IHTYP.L0.2) PFAT=.5 
IF (IHTYP.L0.3) PFAT=0.9 
PMAX=PMMX«PFAT 
PMXMsPMAX 

IF (WM.LT .WPASE ) PMXMsPMAX* WM / WPA5L 
IFUELFC.tQ.l.OR.IBS.EO.O) GO TO 999 
IF(WM.LT.WHASE) PMXMr0.4»PMAX 

IF ( JACCtL.tO. I ) CALL DCMAX (MMXM*WM*SNEW *RSS) 

IF(ITP.tO.l) CALL DCMOTO 
RETURN 
END 

SURROUT I NF OCMAX (PMXM.wM.5NFW.RSb) 

DATA RST ART 9 EbO * RHI3 . F LUX / . 0 76 • 1 1 3 . 4 ♦ . 055 * . 9/ 

DATA PLObb,CCL *CF .CW 9 R A . AK T ♦ AK V *RL *WUD • VBO/ 346.6 * 1 56. • 2 36 . . ? H . 0 * .0235 * 
6. 3667*. 052 ..007 ..00233* l .15/ 

WB = 20()0. 

WCM I T =2O00. 

W X X 5 4 M 

IF (WXX.L I . 1000. ) WXX= 1000. 

RTTsRA*KL-RHD 

PMLOSSsCF*WXX/wD*CCL*(WXX/Wi)) ** 1 • 5 *C W*( WXX / WB ) ** 3 • 

IF (WXX.oT.2000.) GO TO 5 7(. 

ERH=tP0/?.-RSS»SNtW/2e 

RB=RflH/4. 

R ST = 0 * 0 

GO TO 600 

EHB=EHO-RSS*SNEW 

RB=RBH 

RST= 0.0 

AL0SS=PLOSS/bBH 

FLUXS (FBI3-R0«AL05S“Vn( ) / <2.*AKV*WXX) 
if (Flux. GT. o.9i flox=o.i 
AlOSSsPLOSS/EOH 

ACURs (LHH«.VHO-RH*ALOSS- AKV*WXX«FLUX) / (RH*RTT*RST) 

PF“Ms AK T* WXX*F LUX* ACUR / 7'04 7 . 

PMAXs (PtM»PMLOSS/lOOO.) /l.Ol 
PMXM=PMAX*.9 
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1231 


TEM = AKT«ACllR»Fl,UX 


12 32 


TBX=TLH-PML055«7.0a7/WXX 

i* 

1233 


ABATsACUR*ALOSS 

\ . 

1236 


EBcEBB-HH«ABAT 


1235 

086 

n = n*i 

'i* 

1236 


JJ=ll/8 

> 1 

1237 


KKs 1 1 “> J J*B 


123B 


T|M=I l/H. 

l , 

1260 

999 

RETURN 

l. 

1250 

END 
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OlOC «H 
020 
030C 
090C 
050C 
060C 
070C 
080C 
090C 
091C 
092C 
100C 
110 
120 
130C 
190C 
150C 
160C 
170C 
180C 
190 
200C 
210C 
220C 
230 
290 
250 
260 
270 
280 
290 
300 
310 
320 
330 
390 
350 
360 
370 
380 
390 
900 
910C 
920 
930 
990 
950 
960 
970 
980 
990 
500 
510 
520 
530 
590 
550 
560 
570 
580 


SUBROUTINE BAT I INBAT) ...*****••*»**#•* 

*#»####•***** •*******'************ ******** 

GIVEN BY EBATT = EO-3 1*SS-E2* 1BATT 

INCLUDE HY PR 1 
INCLUDE HYPR2 

DIMFNS10N t CELL 13) > . . . / 

DATA AR1»AR2.AK3»BR1.BR?/6.556.0.1.-.719..352..12 

1 BATT = TUTAL BATTERY CURRENT 
AbATU = UNIT BATTERY CURRENT 
PBATT = TUTAL BATTERY POWER 
tBATT = TOTAL BATTERY VOLTAGE 


INITIALIZE 


If HERE FOR THE HR5T timf 
I f(ITR.Nt.l) GO TO 101 

CONVERT BATTERY PARAMETFRb 


RBASE* VBASE/ I BASE 
VNZ = VCNZ/Vt'ASE 
VNFsVCNF/VBASE 
RNFsRCNF/KBASE 
HNZsRCNZ/RHASE 
VBB*6* 3*VHASE / tBREF 

ALPHAT ( 1 1 sALRHA ( 1 ) /VBASE 
ALPHAT ( 2 I s ALPHA ( 2 ) /VBASE 
ALPHAT ( 31 s ALPHA ( 3) 

ALPHAT ( 9 ) = ALPHA ( 9 ) 

ALPHAT (51 = ALPHA ( 5 ) /VBA5F 
BETAT ( 1 ) =HETA ( 1 ) /RBA5E 
HET AT ( 2 > 'BET A ( 2 ) /RBASE 
BET AT (3>=BETA(3)*IBASE 
LtETAT (9) =BETA (9) * I BASE 
BETAT (5) =UETA<5> /RBASE 

FHVE 2*EBVEH/VBASF 
E 1T = E II /VBASE 
SET INITIAL VALUES 
SS = 0.0 

GO TO ( 10.20.30) .IBTYP 
EO = ALPHAT 1 2 ) *NS 
fcl = (ALPHAT (2>-E 1T)*NS 
E 2 = -BE I AT ( 2) *NS/NP 
GO TO 100 
EO=VNF*m 1 *N5 
E ) =0.0 

t2=«NF*NC l*N5/NP 
GO TO 100 
10 EOsVNZ*NLl*NS 
ElsO.0 

t?:-RNZ»NLl»NS/NP 

) A1=AH1*EBRFF/ (VBASE* ALPHA (2) I 
A2 = AR2*EP«t F/ ( VBASE *ALPHA ' 2 ) ) 
A3=AP3»EBWI F/(VBASE*ALPHA(2) ) 

B 1 =BR 1 *CB H l.F / (VBASE»AlPHA (?) ) 
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590 
600 
610 
620C 
630 101 
640C 
650C 
660C 
6 VO 2 

680 


»2 =BH2*EHREF/ (VBASE* ALPHA (2 ) ) 
H3=BR3*EBKEF/(VHASF.*ALPHA<2) > 

ITBATsO 

IF BATTERY VOLTAGE IS KNOWN SKIP THIS SECTION 
IF ( INBAT-1 ) 300* 200 « 500 

SOLVE QUAOHATIC EUUATIQN TO GET IBATT 


690 

700 

710 

720 

730 

740 

750 

760 

770 229 
780 6 

790 6 

800 220 
810 300 
820 
830 

840 50 

850C 
860 
870C 
880 
890 
900 
910 
920 
930 
940C 
950C 
960C 
970C 
980 350 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130C 
1140 

1150 375 
1 160 
1170 
1180 


200 AAsE2 

BB=El*SS-tO 

CC=PBAT2*NC1*NS*NP»UAHC/ (NP2*NC2*NS2*UAHC2) 

TMPsRB*BB-4.«AA*CC 
IFITMP.Gf.40. 01 60 TO 220 
TMPsO.O 
ITBAT=ITRAT4i 

IF(ITBAT.OT.l) 60 TO 22 0 

WRITE (6.229) I TER .PM. WM. PE .WE .FLUX « I ARM. ABAT2 .PBAT2 .E0.E2 .ERAT2 
6.AA.BB.CC .NP2.NS2.PMXM 

9 FORMAT! »IIER PM WM PE WE FLUX 1ARM 

6 ABAT2* «/.I5.7F10.4.'PBAT2 EO E2 EBAT2 AA 

0 CC NP2 NS 2 PMXM *./.l OF 8.4) 

20 IBATT=(-bB-S0HT(TMP))/(2.*AA) 

0 EBATT=E0-E1*SS-E2*IBATT 
PBATTsfbATT* IBATT 
E6AT2=fcHATT*NS2*EBVEH/ (NS*EBRtF ) 

50 ABAT2»PtJAT2/EBAT2 


IF(SS.EO.O.O) 60 TO 999 

ABATUsIBATT/NP 

AMPSsABS(ABATU) 

ALIMIT=50./IBASE 

IF (AMPS.LT.ALIMIT) ARATUsS IGN( ALIMIT. AHATU) 
IF (ABATU.LT. 0,0)60 TO 400 
I F ( IBTYP.GF .2 ) 60 TO 375 


COMPUTE MODEL COEFFICIENTS 

f C0= ALPHAT (2) ♦ HE TAT (2)*AHATU 
LLIN=ECO*< l.-SS) *S5*E IT 
CiAMM = ALPHAT (4) .RETAT (4) *AHATU 
OANNsALPHAT ( 3) *BETAT (3>*AHATU 

EUl =ECO-E I T- (A lPHAT ( I ) .HETAT ( 1 ) *ABATU) * < GANN* SS** < GANN 
6- l .0) * ( 1 .O-SS) »*GAMM*6AMM* (SS**OANN) « ( 1 ,0-SS) »* (GAMM- 1 .0) ) 
EU2=-HETAT (2) * ( 1 .O-SS) -BfTAT ( 1 ) * ( SS**GANN) * ( l.-SS) »*6AMM 
6 - (ALPHAT ( 1 ) 4BETAT ( l ) * 1 MATT ) * (BE TAT (3) *AL06 (SS) * (SS*GANN) 

6 * ( 1 4-55) **GAMM4RETAT ( 4 )* (AUK. ( 1 ,-SS) )*( (l.-SS! **6AMM) * ( SS»* 

6 GANN)) 

EBU=bL IN. (ALPHAT ( 1 ) *HETAT ( 1 ) »Al*ATU) * ( SS*6ANN) * ( 1.0-SS) **6AMM 

EOU=EHU*) U1*SS4EU2*AHATU 

EO=EOU*NS 

El=EUl*ns 

E2=EU2»Nb/NP 

GO TO 999 

PB=PBAT I *PHASt/ (NP*NS*NC1> 

CURslBATI*lBASE/NP 

CALL BCUF'P ( PH » I BTYP ♦ SS.CUK »EC FLL . I TER « I b .EH) 

EOsECELL ( 1 ) *NS*NC 1 / VHASC 
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1190 
1200 
12 10C 
1220 
1230 
1290 
1250 
1260 
1270 
1280 
1290 
1300C 
13 IOC 
1320C 
1330 
1390 
1350 
1360 
1370 
1380 
1390 
1900 
1910 
1920 
1930 
1990 
1950 
1960 
1970 
1980 
1990 
1500 
1510C 
1520 
1530 
1590 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1690 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720C 
1730 
1790 
1750 
1760C 
1770C 
1780C 


11 = 0.0 

E2=FCELL <3)»NS»NC 1 / (NP«ROASE ) 

If- NO HE Of NCR AT ION SKIP THIS SECT ION 
IF ( 1 13 AT I »GT .0.0)60 TO 999 
<.00 AX = AH l *AH2*SS»AR3*SS**2. 

ACO=-IHATT»lbAbt /UAHC 
SL=BRl*2.*HH2*ACU 
EO=(AX-SL»ACU) *NS/ VBH 
C 1 = 0.0 

E2=SL*IUASE*NS/ <NP*VHb*UAMC> 

910 60 TO 999 

COMPUTE f HC BATTERY STATE OF CHARGE ( SS) * KWN AND AMP-HOURS 

500 I F ( TUCRG.Lt.O.O) TDCR(i = OTP 

IF (MON.CO.O) RUAT2=0.0 
IF(MON.CO.O) ABAT2sO.O 
AHU2=AHU2.AHAT2«DTP/NP2 
ACUR= AHU2/TDCRG 
DCRATE=UAHC2/ACUR 
ACCXs ACUR# I BASE 
ACCY=ACCX*UAHC/UAHC2 
600 CALL LBAT (ACCY, IBTYP.AHC2) 

AHC2=AHC2*UAHC2/UAHC 

TOCRG=TOCRG»DTP 

SS=SS*IBASE*ABAT2*0T/ (3600.*AHC2*NP2) 

BCHGs 1 ,0-SS 

ENBAT = t WAT *AHAT2*E. HAT2*PBASE*UT/3.6E6 
IF(ABAT2.6T.O.O)EHOUT=EBOUT*PBAT2*DT»PHASE/3.6E6 
IF(A6AT2.LT.0.0)EBIN=EHIN.PHAT2*DT*PBA5E/3.6E6 
999 RETURN 
END 

SUBROUTINE LBAT (ACCX. IBTYP.AHC2) 

DIMENSION AH ( 8 « 3 ) , DCR (8*3) 

DATA AH/ 200.. 1 90. . 180., 170.. 195. . 128. , 108. *96. . 180. . 172. . 166. 

6.160.. 159.. 192.. 130.. 106.. 19 1.8.1 32. 3. 122. 9. 119. 8. 109.. 95.. 85.. 76./ 
DATA DCR/5.0 , 38. .60. .85* « 195. .200. « 300. .900. .0. .50. « 100. . 150. 

6. 200.. 300.. 900.. 600.. 0.. 50.. 100. ,150.. 200. .250., 300.. 350./ 

J=IBTYP 

IF (ACCX.LE.DCR (B.JM GO TO 30 


111 

30 

50 

100 

999 


WR I TE ( 6 » 1 1 1 ) ACCX OCR ( 8 , J > 
FORMAT <5X, *ACCX tXCEEDS MAX 


VALUE • ,/-5X,*ACCX=‘ .FlO.9 » »DCMAX 


6=’ ,F10. 9) 

DO 50 1=1,8 

1F(DCR(1,J).GT.ACCX> GO TO luO 
CONTINUt 

AHC2= ( AH ( I , J ) -AH ' I - 1 ,J) I / (DCR < I » J) -DCR ( I - 1 « J) ) * ( ACCX-DCR ( I- 1 « J) 
6 ) ♦ AH ( I - 1 ,J) 

RETURN 

END 

SUBROUTINE. BCOMP ( PB , I BT YP , SS .CUR .FCELL » I TER . I B ,EB> 

PARAMETER NOAT = 6 

DIMENSION BCGS(NDAT) .AMP(NDAT) .CSNF (NDAT.NDAT) .ESNZfNDAT.NDAT) 
6.ECELL ( 3) 

COMPUTF CELL CHARACTERISTICS 

COMPUTATION OF BATTERY CHARACTERISTICS FOR 
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1 79CC 

laooc 
ibioc 
1820 '; 
18 30C 
1840c 
1850C 
1860C 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970C 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
22 40 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2 330C 
2340 
2350 
2360 
2370 
2380 


Nl-FE AND NI-ZN 
INPUTS: PBALT » S. IHTYP 

I H T Y P = I HU ACID 
IUTYP®2 N I -EE 
IHTYMsi NI-ZN 
NOW s S COL - AMP 

BATTERY DATA 

DATA DCG5/0.,.7..4,.6,.B..9/,AMP/S.0.l00.,lS0.,200.,250o.3S0. 
DATA CSNF/l.l 7,1.135.1.105.1.09,1.06,1.03,1.08,1.048, 
t 1 .02, 1.0,0.976,0. 94 .1.0 32 ,1.004. 0.976. 0.956. 

c. .928,0. 896 ,.988,.954».93» .908 ..88, .852. 

6 .946,. 91 ,.H84..86..636,.HQB..855..82«.795,.7/, 

& .745, .72/ 

DATA ESN2/ 1.7 13, 1.69, 1,6 75, 1,65. 1.59, 1.53, 1.67, 1.65. 1.63, 

61.6, 1.546, 1.486, 1.64, 1.62, 1.6, 1.67, 1.615, 1.46, 1.61, 1.58, 
61.56,1.625,1.475,1.43,1.565,1.537,1.512,1.475,1.425, 

61. 385, 1.525,1, 5, 1.465, 1.425, 1.34, 1.3/ 

SEARCH FUR REGION IN WHICH DATA IS STORED 
IFISS.lt .O.O.OR.SS.GT.0.901GOTU655 
IFISS.LI ,HCGS<6> 1G0T060 
I I ®NDAT- 1 
G0T0200 

50 DO 100 lsl.NDAT 
I 1 = 1-1 

IFISS.L I .BCGSI I ) 1G0T0200 
100 CONTINUE 

200 IFICUR.LT. 5. 0)CUR=5.0 
IFICUR.UT,1000.)GOT0556 
IF (CUR.LT . 300. ) G0TO400 
J J = NDAT“ 1 
G0T050O 

400 DO 450 J=1,NDAT 
JJ=J-1 

IF (CUR.L T , AMP ( J 1 1 GOT0500 
450 CONTINUE 

500 IF ( 1BTYH.EU.3) G0T0S50 
EOS I list SNF ( 1 1 , JJ) 

EOSI 12®tSNF ( 1 I ,JJ*1 ) 

E0SI21=ESNFIIU1,JJ) 

E0SI22=tSNF(II*l,Jj*l) 

GOT 0600 

550 EOSI ll=tSNZ ( 1 I , JJ) 

E0SI12 = tSNZm,JJ»l) 

E!OS I 2 1 ®F SN2 ( 1 I * 1 , JJ) 

EOSI 2?=t SN2 1 1 I * 1 » JJ* 1 ) 

600 DELS® I SS-HCGS I I I ) ) / IHU.SII 1*1) ) -BCGSI 1 1 ) 

EOS l =EOS I 1 1 ♦ (EOSI 2 1-EOSI 1 1 ) »DELS 
E0S2®E0S! 12*<EOSI22-EOS! 12)*DELS 
SL= IE0S2-EOS1 ) / (AMPI JJ. 1 ) -AMP ( JJ) ) 

ECELL ( 1 ) ®E0S1-SL*AMPI JJ) 

ECE LL 1 2 • ®0.0 
ECELLI3) = -SL 
G0T0999 
EHROR ME SSAGE 

555 WR| TC 16,666) I TEH, SS, CUR. Pt) 

666 FORMAT (/ ,2”, ' INPUT DATA OUT OF H ANGE , I TER . SS .CUR ,PR= • . 
6/,2X,I5,3E12.5) 

STOP 

999 RETURN 


2390 END 
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10 SUHROUTINE t. R R 1 ( A A • AW • AC * AO ) 

20C INCLUDE HYMN 2 

100 lKITX2»LT«2ltoPlTE(6»10G)T.AA»Ah»AC .AO 

101 ITx2 = ITX/.*l 

110 100 FORMAT ( 1H .'MAX POWER t XCE tOl 0* *51 0, A ) 
120 AP=100. 

130 200 RETURN 
1 AO t NO 


10 SUUPOUTINE PECAI. ( A 1 .A2.A3) 

20C INCLUDE HYPK 2 

100 A3sPF/ A !• 1 1>0« 

101 l TZX= I T2** 1 

HO 1KA3.GE. 1U0. 1 ) CALL EMR1 IPF.Wt *A1 .A3) 

120 100 «K TURN 
130 LNP 


IOC 

20C «h.**»<»«»l INEAR INTERPOLATION ROUTINES** 

30C 

AO SUHROitTINE L INT (XAR.YAR.TT.VV.AA) 

50C INCLUDE HYPK2 

100 DIMENSION XAR(l) .YAR(l> 

101 UiOsO 

102 T2 = T 

110 10 ITIsO 
120 llsXARU) 

130 DO 100 1=3*1! 

1A0 1 Xr I 

ISO lKT2.Lt.XARU) ) GO TO 200 

160 100 CONTINUE 

170 200 IK (T2* (DT*.9> > .GT.XARJ IX) .AND.IGO.EQ 
180 VO=VN 

190 VN = YAR ( I X- 1 ) ♦ < YAR ( 1XJ-YARI 1X-1 ) ) * (T2- 

200 6 (XAR ( 1 X)-XAK (IX-1 ) ) 

201 IE ( I GO, ED. 1) GO TO 222 

202 VV=VN 

203 I G0= 1 

204 T2 = TT ♦ 1 

205 GO TO 10 

206 222 AA= VN-VO 

230 T0=T2 

240 999 RETURN 
250 END 
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.0) I T I = 1 
xAPiix-m/ 



10 


20C 

100 

no 

120 

130 

UQ 

150 

160 

170 

180 

190 

200 


SUBROUTINE L|N 2 (XAH,VAR.IXM«XV«YV) 
INCLUDE HYPK? 

DIMENSION XARClKYARIll 

DO 100 1=2, IXM 

IXr.l 


IF (XV.LL.XAR ( |))G0 TO 200 
100 CONTINUE 

WHITE < 6 , 105IXV.XAR ( IXM) » 1 X « I Sl'tt ,T * I CYC 
105 FORMAT UEI.'XVAL OUT OF RANGE *L IN2 > • ,2E 1 1 .5 .2 1 5 ,F7. 1 , 1 5 > 
200 YV = YAR( IX- 1 (♦(YAHim-YAkl 1 X- 111 * < XV-XAR < I X» 1>> / < XAR < I X) - 
6 XARUX-1>) 

RETURN 

END 


10 SUBROUTINE ml 1 N!XAR,YAR.ZAR»IXM.IYM«XV.YV» 2 V) 

20 C INCLUDE HYPH 2 

100 DIMENSION XAR(IXM) ,YAR(IYM) , 2 AR(IXM,IYM) 

110 DO 100 Is?. IXM 

120 IXsl 

130 IE (XV.Lf .XAR( I )>00 TO 200 

UO 100 CONTINUF 

150 WRITE( 6 . 10 S)XV»XAR(IXM) .IXM 

160 105 FORMAT ( IH »*XVAL OUT OF RANGE ( Bl 1 N) • , 2 E 1 1 . 5. 1 5 1 
170 200 DO 210 Is?.Iym 
180 IYsI 

190 IKYV.LE.VARI I) >G 0 TO 300 

200 210 CONTINJE 

210 WHITE:I 6 . 21 S)XV.YV«YAR( I YM ) « I Y 

220 215 FORMAT ( 1 H . • YVAL OUT OF RANGE ( BL I N ) • . 3 E 1 1 . 5 . I 5 ) 
230 300 XFslxv-XAR(IX-l))/IXAR(IX)-XAR<IX-m 

250 YFs(YV-YAR ( IY-1 ) ) ✓ (YAR < IYI-YAH ( IY-1 ) ) 

250 V 1 sXF* 2 AR < IX, IY- 1 ) *ZAR ( I X-l , 1 Y-l ) * ( 1 ,-XF ) 

260 V2sXF*ZAR<lX,IY)*ZAR< IX-l.lYIMl.-XF) 

270 V 3 s (V 2 -V 1 ) *YE *V 1 

2 HOC V 5 sYF»ZARUX.IYnZARIlX.lY-ll«(l.-YF) 

290 C V 5 sYr*ZARIIX-l.lY)*ZAR(IX-l,IY-n»(l.-YF) 

300C V6= (V/5-V5) <*XF*V5 

3 IOC ZVs (V6*V3) /?. 

320 C IF I (V 6 -V 3 ) .GT.. 001 ICALL ERR 2 

330 ZVtV 3 

350 RETURN 

350 LNI> 


10 SUBROUTINE ERR? 

20C INCLUDE HYI R? 

100 WRJTL (6.1001 I SUM 

110 100 FORMAT (1H »• »•**« COMPONANT NOT IMPLfMf NTl D »***• , • 1 SUMS' « 13) 
120 STOP 

130 END 
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IOC 
20C 
3QC 
40 
SOC 
60C 
100 
110 
120 
130 
140 
150C 
160 
170 
ISO 
1 90C 
200 
2 IOC 
220 

2 30C 
240 
250C 
260 
270C 
280 
290C 
300 

3 IOC 
320 
330C 

340 

360 

360 

370 

380 


YCEND HOOT 


SUHROUT INI CYCENDIIO) 

INCLUDE HYPR1 
INCLUDE HYPH2 
IE (10.&T.1901METURN 
OAR ( 1 « ID) s FLOAT ( I CYC 1 
OAR 12*10) = FLOAT (DCTYP) 

OAR 1 3 « I D 1 = FLOAT! 1 1 > « 1 • 

OAR <4* ID) = KM 
(LITERS) 

OAR (6 * I D) = FUEL*3. 786412/ (RH0E*4S4. 5) 

OAR (6* ID) = bCHO 

0AR(7«ID) = (HC| " HCHC.)«HSEC COT YP) *MB/CHOHEF 

ROLL RES 

OAR (8 * I D) = K 1 

AERO 

OAR (9* ID) = K2 


VEM INERT 
OAR 1 10* ID) = K4 
HE OUT 

OAR (11*10) * EVD 
HE IN 

OAR (12* 10) = PEMA 
TOT FNOlNf LNG OUTPUT 
OAR (13*10) - TEENCi 
EN EFr 

IE ( FUEL. CiT. 0001) OAR (14 *10) 

L/100KM 

OAR ( IS « 1 D) * (0AR(S.ID)*100)/KM 

IE (FJf L.0T«O001)OAR(l6*lD) s KM/ (I UEL/ 10581 *44) 

OAR (17* ID) = EHOUT 

RETURN 

END 


s TE'ENG/ (FUEL/81*944)*100* 


G£NFRAL$ ELECTRIC 


IOC 
20C 
30C 

40 SUBROUTINE ACCEL 

50C INCLUDE HYPK1 

60C INCLUDE HYPK2 

100 ISUB=13 

UO VOsO. 

120 W l|>E = W I DLL A 

130 W 1 DM=W I DLL A 

131 SNCW=SACC 

140 OU 12 1=1. 10W 

ISO DU 10 11=1.100 

160 10 OAR ( I I * I ) =0, 

170 12 CONTINUE 

1B0C ***** GHATS (A) MUST HE HIGHEST GEAR TO WORK **** 

190 OAR( 17,53) =WEMX*DWHL/ <5.3052*GHATSU> *GRATS(5> )-2. 

200 OAR ( 17 .55) =WMMX*DWHL/ ( 5 » 3052*GR AT S ( 4 ) *GRATS<5) ) "£• 

210 IF(UTTYP.EU. DOAH (17,55) =WMMX*DWHL/ ( 5 . 3052*GRM*GRATS ( 5) )-2« 

220 OAR (17,54) =AMIN1 (OAR ( 17,53) ,OAR( 17.55) ) 

230 DO 8 1=1,3 

240 8 OAR (17,52*1) =AMI N 1 ( 105, ,OAR ( 1 7 .52* I ) ) 

250 VN=0. 

260 IESF=0 

270 DO 513 I E 1 E = 1 , 3 

280 00 TO (113,213,313) , It IF 

290C ****** MAX ACCEL EIEAT ENG ONLY ********* 

300 113 RFEAsl. 

310 RFMAsO. 

320 JEsJENG 

330 JMsO. 

340 IF (REMX.LT , « 1 ) GO TO 513 

350 CALL RK 

360 OO TO 513 

^70C 1 

300 213 PKMAsU 

390 JMsJMTR 

400 VO = 0 ® 

410 lE((PMMX.Lt..l>.OR,(PEMX.LT..l))GO TO 513 

420 CALL RK 

430 GO TO 513 

440C ****»**MTR ONLY******** 

450 313 RFEA=0. 


******** ACLLLCMATION routine 


»*»****#»• 


460 JE=0. 

470 V0=0. 

480 IF (PMMX.LT •• U GO TO 513 

490 CALL RK 

500 513 CONTINUE 

510 1F(IESF«EQ«1)WRITE(6» 1000) 

520 DO 523 I=?, r ,0 

530 523 OAR ( 13,1 » =FLOAT ( 1-1 ) 

540 1MGF= ICNNT <11 

550 IF ( IMGF »LT • ICNNT (2) ) IMGF= 1CNNT (2) 

560 IF (IMGF .LT. ICNNT (31) I MGF= ICNNT (3) 

570 IF ( IPRTS.GI ,0)G0 TO 713 

580 WRITE (6,1010) 

590 DO 710 11=1. IMGF 

600 710 WRITE (6,1020)OAH ( 13,1 I ) , (OAR ( I ,1 1 > *1 = 1 ♦ 121 
610 713 VNsO, 

620 DO 723 (=1,10 


3“41 


1 



630 

VNsVN* 10, 


660 

0AR1I .52) =YN 


650 

1 1 s 1CNNT ( 1 ) 


660 

ICYC=i 


670 

T*0, 


680 

IF (OAR ( 1,1 l) »GT,VN)CALL 

imUCYC.Il.VN*T) 

690 

OAR ( I ,5 3) * 1 


700 

ICYCsS 


710 

1 |sKNNT(2) 


720 

T*0. 


730 

1F(0AR(6,I1)<,GT,VN)CALL 

LIN? 4 1 CYC* I ! *VN*T> 

740 

OARII . 64 ) * I 


750 

11* ICNNT ( 3 ) 


760 

1 CYC * 9 


770 

T=0, 


780 

IF (OAR (9,11 ) ,GT.VN)CALL 

UN 3 UCYC«II*VN. n 

790 

OAR < I ,56) * 1 


800 

723 CONTINUE 


810 

00 733 11=63,66 


820 

OAR (11*11) *OAR (5,11) 



630 0AR(12,II)=0AR<10,1 I> 

840 OAR < 1 3 , I I ) * ( OAR ( 6 , J I ) *0AR ( 6 , I i!) / 2 . -OAR ( 3 « 1 1 ) 

650 OAR ( 14, 1 1 ) SOAR (10,11) -OAR (6, 1 1 ) 

860 733 CONTINUE 
870 WRITE (6,1030) 

880 wK I TE ( 6 , 1040) (OAR (2,1 ) ,1*52,55) ,(OAR( 11 ,1) ,1*53,55) , (OAR ( A , I ) » 

890 6 1=52,65! , (OAR (12,1) ,1*53,55) * (OAR (6, I), I* 52, 55), 

900 6 (OAR (13, I), 1*53,55), (OAR (8,1 ) ,1*52,56) , (OAR (1A, I), 1*53, 55), 

910 6 (OAR (10, I), 1*52, 55) 

920 1000 FORMAT (1 HO, 'MAX ACCPLf RAT ION EXCtkDED DURING THIS RUN*) 

930 1010 KJHMAT < / 1H0 , T 1 6 , * HEAT ENGINE ONL V • ,T56 , • ENG ♦ MTR*» 

940 6 TH6, ’MOTOR ONLY • / 1H0 *T4 * • T I ML • » T 1 2 , • V (KM/HR > * * 

950 6 T2?*»A(KM/HR-S> *»T33«*WE (RHM1 • , T43 » • WM (RPMI • // ) 

960 1020 FORMAT ( 1 X »T2 *F4. 1 , 3 ( AX »F 6, 1 , AX »F 6. 1 »5X ,F6.0 ,5X ,F6*0) ) 

970 1030 FORMAT ( 1H0,T4 * ’MAX THROTTLE RESULTS :•/' 1 HO ,T 1 2 , 

980 6’EI’G ONLY ENG*MTR MTR ONLY T50 ,’ ENG ’» T59 f *M • »TfcB , «MTR • / 

990 61H V (AH/HR) * . T 1 2 , • T I ME < SEC ) • , T A 1 , • V ( K /H ) • *T60» • T IME ( SF.C ) • ) 

1000 1040 FORMAT ( 1 X,T2,F5, 1 *T1?»3 (Ff>. 1 »4X) »T4l , *0-50* «T48,2 (F6« 1 ,3X) , 
1010 6 F6.1/1H ,T2 «F5. 1 »T12 *3 (Fb. 1 »4X) ,T41 • *0-100* ,T4R»2 (F6. 1 ,3X1 • 

1020 6 F6, 1/ 1X,T2,E5.1 ,T12,3(F6,l ,4X) ,T4l , *30-55* , T48 ,2 (F 6. 1 , 3X ) , 

1030 0 Fft, 1/ 1X,T2,F5. I ,T12,3(F6. 1 ,4X) ,T4 1 ,* 60-100* , T48 , 2 ( F6. 1 * 3X) , 

1040 6 E<>. 1 / 1 A„T2 ,F5» 1 ,T12,3 (Fb. 1 »4X) ) 

1060 RETURN 

1060 END 


3-42 


10 SlMMOiJTlNL L IN3 < I XL , l DY , XV . Yvl 

20C INCLUDE FtYPRl 

30C I NCl.UDL HYt'i'V 


loot 
HOC 
120C 
l •IOC 

uoe 

lb«C 
160C 
170C 
1 HOC 
190 
200 
210 
220 
230 
240 
250 


****** | M liPDATL MODt: IOY-ls MAX tNG HOWt 2- MX ENO 

MX MJR HOIrtt 4- MX GIN PWH « 5" MTH SPIN h® MX BAT QUf* 

; s MX HAT IN, fl= MX PUS, 9 = MM PDb, 10= MAX VEH VEL, 11= PX V 

12-tNG I’F I3 e 1NG wF 19 = MTRPF l r > = GFN OF 16= MTW WF 

CAUL LlN3 (-1 , IDUM, VALUE * 1 . ) 

«»««••! N S"irTA MODL , CALL U 1 03 ( 0 , 1 , 1 . * 1 . > 


ACC 


IF ( IXU 300,900 * 

DU 100 1 I I s 2 , !1>Y 
I X= I 1 I 

lHXV.Lt.OAkMlXL,imK.O TO 200 

loo continue 

WRJ TE *6, 10b) XV ,OAR ( I XL , I X) , I X 
IDS FORMAT*!)) , • t X VAL OUT OF RANGE (LIN3) 


*2E1 1,5,15) 


260 

270 

280 


STOP . ... 

200 YVsOAR *13,1X-1)«-10AR*13,1X) -OAK * 1 3 , 1 X- 1 ) 1* 

6 ( XV-OAF. ( 1 XL , 1 X- 1 ) ) / (OAK < I XL » 1 X ) -OAR ( I XL , I X- 1 ) > 


290 RETURN 

300 300 UAR ( 1DY ,bl ) =AMAX1 (OAR ( 1DY ,S1> ,XV) 

310 RETURN 

320 900 UU 910 Is 1*3 

330 00 TO *920,930,990) ,PTTYP 

390 920 SMJFTA ( I ) s.9S*WEMX*DWHL/ ( 5 • 3052*6WATS » I > *GRATS*5) ) 


360 9 30 SHI FT A ( 1 ) sAM 1 Ml ( WE MX »WMMX) *.95*DW H L / ( 5, 3052 »GR ATS * I ) *GRATS ( S) ) 


370 GO TO 910 

3fi 0 990 W«1TE(8,991)DTTYR,T.IXL,10Y,XV,YV,SHIFTA(1) 
590 99 1 F ORMAT t 1 X , 1 H ,E 10, 5 , 2 I B , 3f. 1 0,S ) 

900 910 CONTINUE 
910 RETURN 

920 F NO 


3=4 3 


QENERAL<$ ELECTRIC 


IOC *»###»#*»* HUNGA-FUT" - 1 * 5QLN ft#####** 

20 bUHHOOT I NF UK 

30C INCLUDE HVPH1 

6QC INCLUDE HVPH2 

100 IJiUUnPl 

110 00 220 IMCEr.2«00 

120 ICNNTl lEIFtnIMf.F 

130 00 210 lint, 10 

>.<,0 HDt.nl . 

ISO 212 CALL PMAXAtt/O.l) 

160 CALL DVOT(VO) 

170 K 1 c* 1*A 

| (10 CALL MMAXA(VO+.5»K1.2» 

190 CALL DVDT (VO*.t.»Kl> 

200 K2s • l * A 

210 CALL PMAXA(VO+.S*K2»2) 

220 CALL DV0T(V0*.5*K2) 

230 K3s.l#A 

26 0 CALL PMAXA(VO»K.3«2) 

250 CALL DVDT(V0*K3t 

260 K6s,l»A 

270 VNsV0*l./6»MKl*2.#K2*2.*K3.K6> 

280 IF lA.GT. 19.5)60 TO 210 

290 VOsVN 

300 60 TO 215 

310 210 HDS=PD5-.0S 

320 ItSFsl 

330 60 TO 212 

360 215 CONTINUE 

350 1KNT s9 

360 IF(lEIF.tO.l) IKNT=1 

370 IKIEIP.ECJ.2) lKNTsO 

380 OAR ( JKNT , I HOF) *VN 

390 OAR ( I KNT ♦ l « I H6F ) s A 

600 OAR ( IKNT + 2 « 1MGF ) =WL 

610 OAR ( 1KNT *3 * IM6F ) *WM 

620 IF(VN.GT.OAR(17,52*IUM)GO TO 226 

630 225 CONTINUE 
660 226 RETURN 
650 tND 
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GENERAL^ ELECTRIC 


IOC 
’OC 
30C 
AO 
r,OC 
6UC 
100 
1 IOC 
l?OC 
l 30 C 
uoc 

1$GC 

160C 

1 TOC 
1BOC 
1 90 c 
200 c 
210 c 
2200 
2'iOC 
2*OC 

250C100 

260C101 

2 70 
280 
2 90 
300 
310 
320 
330 
3^0 


ACC CL Li.iJAT I ON FUR MAX 


THHOTTLK HOUTINK ****** 


bUOkOiT 1 Of t VLT l VO) 
INCLUDE HYl'k L 
lfiCuUOl HYP*? 
l*>Uti~20 

Dl'itOSlOO HI (1 I ) 

|h ( IF lL2*f w.O)bO TO 
1 U ( l ) cPMX!. * P F C A * i * f 


U> l 


9 b 9 • 3 * U T / w [ *0h' T *0R A T 5 ( *> ) 

: If *2." A*t.RT*l>H ATS <*>)*(«T»UC/ < 3.f>*UWHU 

loll, 3*NTMT*NI>/WM«(>K’M»(>HATb t b> 

Tij (4 ) : JM* ? « * A *CiW A T Mb) *(jM m *M T M T * HD / (3.6*DWHL> 

TO ( b ) sPACC *9*)A9 • 3* NT *NL/WF 

TO ( 8 ) SCO* A*- * ( VH*Vk. INI)) * * 2 » 0 WHL/ 4 3 . 2 
1 () (9 ) =S* • 807*L>«HL/2 , .)O» 

-to, ..-to, 7 , 

a«ITE(2?«100> (TOU > *1 = 1 «11> 

M)FMAT { l X * 1 1 F 1 0* A ) 

AmIJatL ( b ) «9b49.3* (NT*NU/W E * CPMXfc *PF t A*PDb-PACC < 1 ) ) *GRT ♦NT"IT * 

W/*M»(,rtM*Pt'XM»t>FMA*PD5)-b*MV«CWHL»A.903-CR0L*MV»0WHL« 

( 1 .♦CWl-L 1*.9U 3AA*VB*CW0U?* (.^11 344*VH> **2) *4.90 332b 
-C J* AF * (Vb*VWjNt)) **2*C'^HL/43«?) / ( (MV*r)WHL**2/4» 

.j^*(,Pl*C,UATb(b)*M*r»D*JM*OPM*C,RATb(5)«MTMTR«NOOWHL)/ 

( 1 ,8*l)V»HL> ) 

KfcTU*N 

U\[> 


GENERAL^ ELECTRIC 


IOC 



20 c 

• * 

*#* NthlTlOl T< MOD MAX P*>irll K OF k NG*MTW AND 

30C 



*0 

bUliNOUT l l*L Pf'AXA ( V A * 1 D? ) 

snc 

IhCluUDF HYPH l 

60C 

1UCLUIH HYH*V 

loo 

M)Ns I 

lio 

MOU= l 

120 

IMIH-12 

130 


1 F ( IC VT,F 0.0) GO TO 1 90 till *90) * II V 

133 


I T (VA.Uj.O. 0) VAsO.OOOl 

160 


Wl)5 = VA#GHATS ( 6 1 *6. 306 16/OWHL 

162 


IT (Wl)S.l U.O.O) WD&BO. 00001 

160 


IT ( IlV.l 0, 1 1 GO TO (601 ,(>10,620) *1LIF 

16 1 


11 ( 11)2,1 0.2) GO TO ( 606 • 0 1 5 *6?5 1 «IHF 

170C 



180 601 

WL = SI’FR»Wt MX 

190 


likTswL * 3. 1 *16*l)WHL / ( VA»(j» ATS (51*16,6667) 

?oo 


IT <GRT.LT.l./OI)R)GHT=l./OI>R 

2 10 


IT ( GKT .(> 1 ,PR 1 GR T 

220 605 

WF®WOb*GH 1 

2 30 


NT=tCVT 

Z*0 


IFtWl.LT.wlfJLf A) WE®WIOLTA 

2*1 


(.0 TO 113 

250C 



260 

610 

WMswHASE *RFACT 

2 70 


()RlsWM/(WUS ) 

280 


()F2£SRFR*RFMX/W()5 

290 


WE sWLMX*ST’FR 

300 


CiRTsAMAXl (GR 1 «GH2 1 

310 


IF (GRT ,LT« 1 ,/OI)H> GKTsl./ODR 

320 


tF(GRT.GT.RH) GKT=HK 

330 

615 

WM=CiRT «WUS 

3*0 


WL = Wl)S*GRl 

350 


IF(WM.LT.hIDLLA) WM=W I DLt A 

3feO 


1 F ( WF »LT ,w I OLE A) WE = WIDLLA 

370 


NTsECVT 

371 


GO TO 113 

380C 


390 

620 

WM = WHA5t**»F ACT 

*00 


GRT=WM/( WDS) 

*10 


IF (GRT.LT . 1 ,/ODH) GRT= 1 ,/OOR 

*20 


IF (GKT.GT.RR) GKT =RR 

*30 

625 

WMsWDb *GHT 

**0 


NT = FC VT 

*50 


GO TO 113 

*60 

90 

1)0 92 1 = 1*3 

*70 


IGE.ARo I 

*80 

92 

1KVA,LE.SH1FTA( 1)100 TO 9A 

*90 


IGLARsA 

500 

9* 

NT = NTM ( 1 GE AH ) 

510 


GKT = GKATM IGLAK1 

520 

111 

WU=VA*16.667»GRT*GRATS(5> / (3. 1A16*0WHL) 

530 


IE ( lFlLiel 0*0) GO TO 113 

5*0 


WRITE (73. 6001 A,VA«WE« 11 *VO ? Kl.KZ.K3*KA,fT»6F 

550 

600 

FORMAT (lX*TH,A«2F10.A,n»6F8,A«I3l 

560 

113 

GO TO < 112*212*312) »l)TT YR 

570 

112 

IF ( ICVT.f 0,0»WM=WE»GRM/GRT 

500 


NTMTsNTMTR 

590 


GO TO 512 


600 ?\? IM ICVT.I !j.0; WMSW1 
610 UI*M = C»'<T 

6/0 NIKTsMT 

630 liO TO M<£ 

6<,0 31/ CALL THU/ 

(>*>0 ‘1/ lil> TO ( A«iO «'i*iO »•) TO) « 1 1.'? 

660 S<)0 II- <W[ .OT.W* f'XIWi = MU 
670 It- (WM.ljT ,W' M X ) WNUH.MMX 

6H0 ‘><>0 l»»T=WL 

6«l IFUtlF.HJ.M WT=WM 

6i)0C 00 T0(‘>6/. u >»>Ai t >6M . IH» 

700 06/ CALL t NI.<1> 

7 l OC HI URN 

720O6A CALL l NC.ll I 

730c CALL m TH ( 1 > 

7A0C Ht- TURN 
75006’ CALL MTW ( 1 » 

760C CALL ACC 

770C HACC(1>=HALC <A> 

780 CALL i NCj ( 1 > 

790 CALL '•THllI 

800 IF (HIT .LU. 3 "’ACC l 1 > = »'ACC (A) 

810 570 HI.TU9N 
8/0 t NO 


3=47 


GENERAL 4§^ ELECTRIC 


20C •#•••#*• MAXIMUM VELOCITY routine 

30C 

40 SUBROUTINE MAXVEE 

50C INCLUOf HYPHl 

60C INCLUOF HYPH2 

100 1SUB*22 

no 00 13T I MON* 1 «2 

120 0AR(1«1)*2. 

130 OAR(2*l»*2A» 

140 IKNT *0 

no IF ( IM0N*E0* 1 ) GO TO 104 

160 1KNT*3 

170 UAR ( 1 « 1 ) *0* 

100 OAR (2 « 1 ) *0* 

190 106 00 116 IE|F*1«3 
200 IF0RM2 ( IKNT*IE1F) *IA3 

210 00 TO < 136« 146« 156> «IEIF 

22 0 136 PFEA»1. 

230 PFMA«0. 


240 V* 0* 

250 IF IPEMX.LT..l)00 TO 225 

260 00 TO 166 

270 146 PFMA* 1 • 

260 V*0. 

290 IF (IPFMX.Ll •• U «0R. (PMMX.lT,. mOO TO 225 

300 00 TO 166 

310 156 PF( A*0« 

320 V*0» 

330 IF (PMMX.LT*. 1)00 TO 225 

340 00 TO 166 

350 166 00 176 IE0N*1»200 
360 V*40.*FL0A1 (ICON) 

370 CALC PMAX A ( V * 3 ) 

380 WTaWF 

390 00 TO ( 186* 196*206) « IF1F 

400 166 IF (WE.GT.WtMX)GO TO 226 
410 CALL ENGUI 

420 GO TO 216 

430 196 IF 1 (rtf.OT.WLMX) .OR. (WM.GT.WMMX) ) GO TO 226 
440 CALL F.NGI 1 1 

450 CALL MTH ( 1 > 

460 GO TO 216 

470 206 WTsWM 

480 IF (WM.OT.WMMX)GO TO 226 

490 CALL MTR(l) 


500 CALL ACC 

510 PACCf 1> sPAlC (4) 

520 216 AsNDMPMXF»PFEA*NT*PMXM*PFMA«NTMT-PACC !1)«NT) 

530 6-OAK ( 1 «1)* M V»V/ 36708 *-CD*AF*(V*0AR(2«l) )»*2*V/77760. 

540 6-CR0L*MV»( l.*CR0Ll*.91 1 344»V*CKOL2« ( .9 1 1 344»V > *»2 > *V/ 367.0978 

550 IF (A.Lt.O.)GO TO 225 

560 176 CONTINUE 

570 WK 1 TE ( 6 « 1 7 I ) A < WE »PMXE »WM . PMXM , P ACC . I SUB • I F I F * I MON 

580 177 FORMAT ( 1H « 1 MAX Vf.L NOT AT TA I NF.0‘ / 1 X *6E 10. A « 3 I 5 > 

590 725 IF0HM2 < IKN1 ♦ IEIF) sIA4 
600 226 0AP(IM0N*2*1EIFI*V 
610 116 CONTINUE 
620 137 CONTINUE 

630 KHI Tt (6. 1060) (OAR < 3 « I ) « I = 1 ' 3 > • (OAR (4*1 > ♦ I s 1 *3) » 
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GENERAL^ ELECTRIC 



IOC 

20C 

30C 

*oc 

50C 


• ••«* REIN1 I 1AU2ATION ROUTINE ** 


COMMENTS: MV IS NOT HEINlTIALlZH)- 
PROPAGATION IS DESIRED* INPUT MV=0» 


F NEW MVTOT VIA WEIGHT 
FOR NEW SET OF RUNS 


60C 

70 SUBROUTINE WEI NT 

BOC INCLUDE HYPW1 

90C INCLUDE HYPK2 

100 DO 100 1 si 'IQW 

HO DO 100 IIslOD 

120 100 OAR (I I. llsO. 

130 EHCiENsO. 

140 LHINsO. 

150 EHOUTsO. 

160 TMEFFsO. 

170 TEFN6«0. 

1B0 tVD s O » 

190 MJCLsO. 

2 00 KMsO. 

210 TAC»0. 

220 ItONsO 

230 1M0N=0 

240 ICYCsl 

250 UNTsl 

260 ITF-RO 

270 ltsl 

2B0 1»CF=0 

290 T=0. 

300 VN=0. 

320C MUST’BE INPUT AT START Oh EACH RUN TO OPERATE 
330 IESFsO 

34 O KlsO* 

330 K2=0* 

3b0 K 3 s 0 * 

370 K 4sO « 

300 PFEAsO© 

390 h’FMAsOo 

400 MMsO® 

410 PE=0© 

420 WE=0, 

430 WMsO. 

440 I I N I Ts i 

450 KfcTURN 

460 fcND 



1 

I 



GENERAL (HI ELECTRIC 


iooc 

101C *»*#•# SUBROUTINE DATE 8 #**#*****##*' 

102C 

103C THIS* SUBROUTINE GETS CURRENT TIME AND DATE 
10AC AND RUTS VALUE (ASCII STRING) INTO STRINGS 
IOSC JDATE AND JTIME 

106C 

107 SUBROUTINE DATE0<JDATE«JT|ME> 

iob CHARACTERS jdatl«jtime 

109C 

110 CALL DAT 1M (JDATE « T I 

111 ENCODE ( Jl IME» 10) T 

112 10 F0RMAT(1X«F6.2«1X> 

113C 

114 RETURN 

115 END 


G£N£RM<9iLE&TIHC 


10C«««****«**** a ******* a ******* a **''** < *‘ M '** : ** <li> ****** 

20C*««** FILE DEFINITION SET-UP FOR HYVEC 

SUBROUTINE ASSIGN (ASSIGN LU FOR OUTPUT! 
40C*«»*«* ENTRY FILES (TO SET UP LOGICAL UNITS) 

50C»««*«* ENTRY FILED (TO DETACH LOGICAL UNITS) 

60C******************* ***************** ************ 

70C 

00 SUBROUTINE ASSIGN(LU) 

90 CHARACTER FTYPF.*fl»IFILE*8»FII.t*;!0 

95C 

100C 

105 INTEGER ICBUF(5)/2. 1,2000, 0,0/ 

HOC OPEN OUTPUT FILE USER SUPPLIES AS LOGICAL UNIT "LU* 

120C THESE ARE THE OUPUT FILES WHEN I F IL , I F IL2< I F IL3 ARE 
130C NON- 2. FRO VALUES. 

140C 

150 WRITE (6,S) LU 

160 5 FORMAT ( • GIVE FILENAME FOR LOGICAL UNITS 0 • , 12) 

170 READ ( 5 , 1 S ) IFILE 

100 ENC0DE(FILE,16) IFilE 

190 CALL 0PENF(LU,HLE,ISTAT,3,0,ICBUF) 

200 IF (ISTAT.NE.O) GOTO 200 

210 RETURN 

220C 

2 30C********* ******************** ******* 

240C***** ********************** ********* 

250C 

260 ENTRY FILLS 

270C 

280C FILENAMES ARC E.XPECTtD TO BE UNDER THE MAIN ID 

290C NO SUBCATALOG STRUCTURE EXPECTED 

300C 

310 FTYPE=*INPUT1* 

320 WRITE(6*10) FTYPE 

330 10 FORMAT <• GIVE FILENAME FOR '.Afl,*? •) 

340 RE AD ( 5 , ! 5 ) IFILE 

350 15 FORMAT ( Ab ) 

360C 

370C CHECK IF INPUT FILE GIVEN EXISTS 
380C 

390 LU=1 

400 LNCODE(MLf ,16) IFILE 

410 16 FORMAT (AH, 1H? ) 

420 CALL OPLNF (LU, FILE .ISTAT.l ,0,1) 

430 IF (ISTAI.NE.O) GO TO 300 

440 CALL DETACH (LU.ISTAT,) 

450 IF (I c i.M.NE.O) GO TO 600 

460C 

470C FOR A SC BCD FUNCTION, THE FILENAME MUST HE FOLLOWED 
480C BY A SEMI-COLON DELIMETER FOLLOWED BY DESTINATION FILE 
490C 

500 FNCODLC- 1LE ,IT> IFIlH 

510 17 FORMAT<**S<B ',A8,MTF.MP1\»» 

520 CALL CALLSS (FILE) 

530C 

540C OPEN LU»IS AS READ ONLY, MODE AS REQUIRED » AND DO NOT 

550C CREATr FILE IE IT DOESN'T EXIST 

560C 

570 CALL OPl UF(l5.'TEMPll'»I ST AT .1,0,11 

580 IF (ISTAI.NE.O) GOTO 200 
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590C 

600C INPUT FILE (LU*15) OPENED OK, SO CONTINUE 
6I0C 
620C 
630 
640 
650 
660C 

670C CHECK IF INPUT FILE GIVEN EXISTS 
680C 


FT VPE = • INPUT? • 
WRITE (6, IQ) FTYPfc 
REAO(S»lt>) IF ILF, 


LU=I 

F.NCODE <F 1LE , 16) I FILE 
CALL OPENF «LU,F ILE,ISTAT ,1 ,0,1 ) 
IF IISTAT ,NE,0) GO TO 300 
CALL DETACH <LU,ISTAT«> 

IF (ISTAT.NE.OI GO TO 600 


690 
700 
710 
720 
730 
740 

760C FOR ASCBCO FUNCTION, THE FILENAME MUST DC FOLLOWFD 
77 OC BY A SEMI-COLON DELIMETER FOLLOWED BY DESTINATION FILE 
780C 

ENC0DETFILE,19) IFILE 
FORMATI'ASCB • »AB,' 5TEMP2\* ) 

CALL CALLSS (FILE) 


19 


OPEN LUA 1 7 AS READ ONLY, MODF AS REQUIRED, AND DO NOT 
CREATE FILE IF IT DOESN'T EXIST 

call OPENF ( 17, 'TEMP2I " , I ST AT , 1 ,0, 1 ) 

IF (ISTA1.NE.0) GOTO 200 

INPUT FILE L'.U* 17) OPENED OK, SO CONTINUE 


790 
300 
810 
820C 
830C 
840C 
850C 
860 
870 
880C 
890C 
900C 

920C OPEN LU*25 AS READ ONLY, FTC, THIS FILE C0NTA1N5 

930C THE EPA DATA VALUES 

940C 

950 IFlLEs'EFADATA* 

960 CALL OPENF ( 25 , • /SHYVEC /EPADATA 5 • , I ST AT , l ,0 , 1 ) 

970 IF (ISTAT.NE.O) GOTO 200 

980 100 CONTINUE 

990 RETURN 

1000C 

101 OC ********************************** 

1020C******* *************** ************ 

1030C 

1040 ENTRY FILED 

1050C 
1060C 
10T0C 
1080C 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 


NOW DETACH ANY AND ALL LOGICAL UNITS WHICH WERE 
ATTACHED TO FILENAMES 

LU E 1 5 

CALL DEIACH (LU,ISTAT«) 

IF (IST»T,NE,0) GOTO 600 
LU-25 

CALL DEIACH (L* *tSTAT,> 

IF (ISTAT.NE.O) GOTO 600 
LUS21 

CALL DEIACH (LU.ISTATO 
IF (ISTAT.NE.O) GOTO 600 
LUs?2 
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1190 CALL DriACM (LU. ISTAT.) 

1200 IF (ISTAT.Nt.01 GOTO 600 

1210 l,l)r. 2 3 

1220 Call OtlACH (LU.ISTATO 

1230 IF (ISTAT.NE.O) GOTO 600 

1260 LU=1U 

1230 CALL DtlACH (LU.ISTAT.l 

1260 IF (1STAT.NE.0) 60T0 600 

1270 LUrI? 

1200 CALL DtlACH (LU.ISTAT.l 

1290 IF (ISTAT.Nt.01 GOTO 600 

1300 LUs?3 

1310 CALL DtlACH (LU.ISTAT.l 

1320 IF (ISTAT.NE.01 GOTO 600 

1330 500 RETURN 
1360C 

1350C ••••ERKOH MESSAGES****** 

1360C 

1370C 

1 380C ERHUR IN OPENING THf FlLF —PRINT MESSAGE ANO GIVI 
1390C ISTAT VALUE FOR ERROR ANO THE FILENAME 
1600C DESCRIPTION GIVEN PG 16-12 IN UStRS MANUAL FOR ISTAT 
1610C 

1620 200 CONTINUE 

1630 WR I TE (6 *20 1 1 ISTAT, IFlLt 

1660201 FORMAT < 10X»***»FRR0R*** IN OPFNF , ISTAT, FILE** , IS, 1H,,A8) 

1650 STOP 

1660C 

1670C ERROR IN ATTACHING THE FILf TO CHECK FOR FILE’S EXISTENCE 
1680C 

1690 300 CONTINUE 

1500 WR I TE ( 6 , 30 1 1 ISTAT, IFlLt 

1510 301 FORMAT ( 10X.*»**ERR0R»** IN ATTACH, ISTAT, FILEs* *I5*1H»»A8 

1520 STOP 

1530C 

1560C ERROR IN DTTACH PROCEDURE —PRINT MESSAGE 
1550C 

1560 600 WR I TE ( b , 60 1 1 ISTAT, LU 

1570 601 FORMAT (1 OX. • ***ERROR«** IN DETACH, I STAT ,LU« • , I 5 , 1H, , I 51 
580 STOP 

590 END 
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020 

030C 

060C 

050C 

tlfcOt 

0 7UC 
080C 
090C 
091C 
092C 
100C 
110 
120 
130C 
160C 
150C 
160C 

1 TOC 

1 HOC 
190 
200C 

2 1 oc 

220C 

230 

260 

250 

260 

270 

2 HO 
290 
300 
310 
320 
330 
360 
360 
360 
370 

3 HO 
390 
600 
6 1 OC 
620 
630 
660 
650 
660 
670 
6R0 
690 
500 
510 
520 
530 
560 
550 
560 
570 


ft * fi twn 

SJIWOUTIM HATU'lhATI 

THIS Sui.hroTIPE IS USCO Tfl [ 

11) r hi HATH HY CUPRf'iT ♦ VOLTAGE FOR A GIVEN ttATTFHV POWER 
(2 Hit PAhA'lt.TtkS ( f 0 •(. 1 » t 2 ) OF THF SIMPLIFIFD BATItHV NOOFL 
n I VF N HY t MATT = RG- Jl*ss-I 2*|HATT 

INCLUDE "Ypr, | 

IHCLJ'H '*YPP2 

l.l I S I O' i COLL (3) 

OAT A AF I .AP2.Ak3.RM .HM/G.SSA.O.l 7 1 4 . . 357 . . 1 27/ 

l WATT s If.TAL UATTFPY CURRENT 
AHATU s nr.IT t'ATTLRY CURRENT 
I’ll A T T s IPTAL HATTFkY POWfk 
I HAT T s I l.’TAL h A T T L k Y VOLTAGE 

If HERE FOR THt FIRST T I Mf INITIALIZE. 

IF ( ITh. if .1) GO TO 101 

CONVLPT fATTfkY PARAMETERS 


ROASE = Vt>ASF/l<iASF. 

VN7 = VCNZ/V|jASE 
VNF sVCKF /VHASF 
PNF=RCNF/PFASE 
PNZ»KCNZ/hhASE 
V!3R = e>.3*VHASE/FHREF 
AlPHAT ( 1 ) sALPHA ( 1 ) /VRASE 
ALl’HAT(Z)2ALPHA(Z) /VHASE 
ALPHAT ( 3 ) - ALPHA (3) 
ALPHATIM sALPHA(A) 

ALPHA T (5) sALPHA (5) /VHASE 
bFTAT ( 1 ) =bFTA ( 1 ) /PPASL 
RETAT(2>=IJETA(2)/RHASI 
liCTAT (3) s(<t TA(3> MNASt. 
HETAT (4) =HCTA ( At MtlASF 


MET AT (S) afjF.TA<5> /kPASt 
tlWEZ sF HVLH/ Vt'ASr 
EITsF I I /VHASE 
SI T initial VALUES 
SS = 0.0 

GO TO 00,20.30) « Il'TYP 
10 EO s ALPHAT ( 2 ) *NS 

El s (ALPHAT (2)“FIT)*NS 
E2 5 -HETAT (2) *HS/NP 
GO TO 10O 

20 EOsVNF*r,ci*NS 
LlsO.O 

F2sRNF«NU«NS/NP 
GO TO 100 
30 EOsVNZ«NCl«NS 
E 1 s 0 . 0 

E?sRNZ*NCl*NS/HP 

100 Al3APl#E0kEF/(VHASF * ALPHA ( 2 ) ) 

» 2sAR2«EOWFF/ ( VHASF *ALPHA (?) ) 
A>”AR3»EPPFF/(VHA5E*ALPHA(2) I 
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•jltO lilr.hrtltFt’PlE/IVHASFftAM'HAI?) > 

Ii2 ~-rtw?*l i<Kf* t- / (VI'ASI i*ALI*MA<?> I 
600 M3s|)R)M l Pt F/ IVl'Mbl •ALPHA (7) ) 

610 I ToAT ao 

6?0C IF I'ATTMY VOLTACil 1 1> MIOhN SK 1 •• Till S ACTION 

6)0 1 0 1 IF ( IMiA l-l | 300,200, *>00 

660C 

6*»0C SOLVE (.•LifVlili AT I C l (Jl.'AT I l)'i TF «i| T 10ATT 

660C 

670 ?00 AAsl7 

6«0 Mhsfcl*S5-F0 

600 CC = »’t AT2«fiCl*N5*NP«UAH< / <NP?*N<7«MS2*UAHC2 ) 

700 TMP = rtb#HI < -«,,»AA«f C 

710 IFIT^’.r.UQ.O) 00 TO ??n 

720 TMI» = 0.0 

730 | TOAT 2 I THAT * 1 

760 IF (I TI'Al.f.T.l) <iO TO 720 

750 WRIT! ( <n 729 ) ITI KPM.rt’NPL «Wl ,E LUX , 1 ABM , AHAT2 ,MtlAT? ,f 0 »E7 *EHAT2 

760 6, AA,E).),CC tNP7 »N5? »PMXM 

770 229 FORMAT • ’ > Tf.B PM WM PE WE FLUX I ABM 

7B0 6 AliAl7 , «/.I*j»7F10.6,'Pt‘AT2 LO E2 EbAT2 AA 

790 6 Ho CC NP2 N52 PMXM • , / , 10F8 .6 ) 

BOO 720 IOATTst-l>n-bOWTITMpn/r7.«AA) 

BIO 300 t'.)AT7 = Ei'-E 1*55-1 2*11 ATT 

820 PHATTsM.ATTMHATT 

830 F.HAT2 S LHATT*NS2»FMVHI/ (fsS*FO«FF) 

860 50 4bAT2*PMAT2/lOAT2 

850C 

860 IF (SS.E'J.O.O) 00 TO 999 

S70C 

ABO AMATUsIi'aTT/NP 

890 AMPbsAI b( AMATU) 

900 AulMITs'sO./iyASt 

9 iO IF (AMPS.LT.A..IMI D AtATU=S I GO ( AL I M I T , ABATU) 

920 IF 5AoATO.LT. 0.0)00 TO 600 

930 IK IBTYP.GF .2) 00 TO 375 

960C 

950C 

960C COMPUTE MODEL COEFFICIENTS 

970C 

900 350 EC0=ALPMAT(2)*BLTAT(2)»A0ATU 
990 EUN = CCU*(1«,-SS)*SS*EIT 

iooo gammsalphat ;6* ♦ ijetat U) *abatu 

1010 GANNS ALPI' at ( 3) + IIETAT ( 3) *AMATU 

1020 EUlsECU-E I T- ( AuPHAT ( 1 I ♦'IE TAT ( 1 ) »AMATU> * <GANN*SS*» (GANN 

10 J. 6-1.01 * C 1 .0=55) **GAMM + (,AMM* (SS**GANN) * ( 1 ,0-SS) »* ( GAMM- 1 .0 ) ) 

1060 EU2 = -Ht T AT (2) » ( 1 .0-55) -HE TAT < 1 ) * <55*»GANN) * ( l.-SS)**GAMM 

1050 6 -(MuPrlAT 1 1 ) *HtTAT I 1) * I OAT T ) * ( MET AT ( 3 ) » ALOG ( 55 » * ( S5*GANN > 

1060 6 *( 1 «-SS) **(>AMM*HETAT (6 1 * < ALOG < 1 ,-SSJ > * ( U .-55) *»GAMM) * (SS*» 

1070 6 GANN)) 

1080 E30-FL l (U ( ALPHAT ( 1 ) ♦ME TAT ( 1 ) »AMATU) * <SS*GANN) * ( ! ,0-55) *»GAMM 

1090 FOU = LOU.EUl*5S + E;U2»AUATtJ 

1100 E0=E0U«N5 

1110 E 1 8 EU 1 *MS 

.1120 E2 = EU?*NS/NP 

1130C 

1160 GO TO 999 

1 150 375 PBsPBA I T*PMAbE./ <NP*NS«NC1> 

1160 CUR=ieAf T*IUA5F/NP 

1170 CAUL HCCMP<Pb,lHTYP,55»CUP*ECtLL«ITFR,lH.fcl>> 
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1 1 BO 
l 190 
1200 

12 IOC 
1220 

1210 4no 
124G 
125G 
1260 
12?0 
12H0 

1290 4i<) 

1300C 

nioc 

132 OC 

1330 S0« 

1340 
1350 
1 360 

13 TO 
13R0 

1390 

14U0 

1410 600 

1420 
1-30 
1 440 
1450 
1460 
1470 

1 4 HO 

1490 999 
1500 
1610C 
1520 

15 30 
1540 
1550 
1660 
1 5 70 
1500 
1690 
1600 
1610 

1620 111 

16 30 

1640 30 

1660 

1660 60 
1670 lm> 
1 6HU 

1690 999 

1700 

1710 

1T20C 

1 t 30 

1740 

1750 

1760C 

1 /70C 


fcnnKtUIII 
E 1 »0 • 0 

E2 8ECEIU ( 31 *Nb«NCl / <NR#H 3A6I ) 

If NU RLC.f Of' RATION SK 1 P TO I 5 St t T | Cf* 

IF ( 1 OA I T *0T «0#n ) 00 TO 999 

AC ji-piATT^IHASE/UAMf 
♦2.4HR24ACU 

COB (AX«^L#ACU) »N5/VHtt 
E l e 0 * 0 

F?Bf)l.ftl|-AbE*N!)/ (NP4y/hP«uAH( ) 

00 TO '*99 

C 0 M RoTf THt llATTEHY b T A T F or CMAK&t t$SJ ♦ AND AMP-HUUR& 

IF ITI>CH0.UL«0.0) TPC RCie[,TP 
IF ( M ON.EOrO> PHAt?cO # 0 
IF (*ON.FQ.O) AtUTpoO.O 
AHj^ eAH0?4Ai<AT2*DTFVMP2 
A C J ^ s a hU 2 / T OC 9 G 
i>C 9 A T l SUAMC2/ACUR 
A(CXsAU»M I MASK 
ACC Y s ACCXftUAMC / lJAHC2 
call LOAT (ACC YgU3TYP%A9C2) 

AHC2sAhC 2 UAMC2/UAMC 
TDCHGs !|'CRO*l>TP 

SbsSb* it' ASMARA T2*rT/ ( 3600 **Am( 2*.NM?) 

ICHt.sl.u-SS 

r Nt* A T e t r < |,AT4A|«AT2*r^AT^4P0ASF«t-T / 3*6F.6 
I F ( A I'. A I 2 • G T * n * n ) E ROOT sF ROUT ♦t>6AT2*l.)T #PbASF / 3.6C6 
IF ( AH A I 2.LT t 0.O)f HNer K I N*PF A 1 ?*DT*PHASE f 3 ♦ 6E6 
RFTuRN 
f- 00 


50H9CJI I NE LMAT(ACCX»lRTYP t A6 C 2 ) 

n mf f.s i :>n ah ( f< » 3 ) *i cp < h , 3 ) 

) A T A AH/2('o**190*tlHO**l7n**|46®tl28»fiOH**9be*180#*l72«%166* 
6*lbO®*164**l42**l3Q**lO6**l4l*F*132#3*l22*9*ll4*8ilO4**95»%R6©*760 
O A T A OC m / 6 * 0 * 3H » * 60 • * M 5 * % l 4 4 * *2 00* * 300 • % 400 * <0® * 50 • * 100* % 1 60 « 

L%?0 Ob » _3*'F * *400, f bOO • *0 * *50* ♦ 100* % 1 6°* *2 00* «2S0* ♦ 30 0**360*/ 

J= l 1 jT Y^ 

I r ( AC C XeLF *0( * ( « % J) ) Cif TP 3( 

.•»« I TE (6 • 1 111 ACC XtDCH (6* • j) 

PUWMAT (6X» * ACC X LXCFF *)b M AX VALUL • « / « 6X « • ACC X = • *F 1 0 • * • f DCP AX 

6 s • 10. M 

)M 60 I - 1 % H 

! M DC 9 I l « J ) « CiT * AC C X > TO 10i‘ 

COST IM-l 

AHC 2s ( < I *J)-AH(l-l*jl ) / (DC n ( I * J ) -TCP 1 I - 1 * J) ) * < ACC X -OCR < I - 1 « J) 

6) ♦A“( I«1,J) 

9f- TijPf 

LV> 

00 I I or 1C0 M P (PM . 1 HTYiNS^^CUR itCFtC*|TFR.nWlM> 

PAMA**l Tt *•’ M ) A T 5 1 1 

DI N DCGI) (90AT ) • A«IMNDAT> % \ V«F ( MOAT %NOAT ) .LSNZ (NO AT % NO AT ) 

6'CCFLL < .3) 

coupon ( r LL C M ** >' A C T F R I 5 T I C G 
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1 7ftOC 
1790C 

inooc 

1010c 

1 02GC 

maoc 

1040C 

iosoc 

iii60c 

11170 

1000 

1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1 970C 
1980 
1990 
2000 
2010 
2020 
2030 
2090 
2030 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2190 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2290 
2250 
2260 
2270 
2280 
2290 
2 300 
2310 
2320 
2330C 
2 390 
2 330 
2 360 
2370 


COMPUTATION or RATTfNY CHAR ACT! R I ST ICS FOR 
N 1 -0 ( A fit Ml -2.0 
I MOOTS: PHAI-T . S* IHTYP 

IRTVR'i PH AC 10 
IHTYPn? f: I -Ft 
lDTYPn3 NI-ZN 
ROW r b (01. n AMP 

I1A IT I RY DATA _ 

I'lAVA |iCCib/0, , .2 .,4 « , 6 , . 8 » • 9/ ♦ AMP/4.0 , 100. , 1 50. *200, *230. • 3 1 ( 1 » / 
|)A 1 A t br;F / 1 » I 7 » 1 ♦ l 35 * l • |06» l .09, 1 «06* 1 .03, 1 »Oft« I .048, 

(, 1,02.1 .0.0.076.0,99 ,1.032. 1,009.0,976,0.956 , 

6 ,920, 0.896, .988, .959, .93, .900, .00, .052. 

6 .996 , .9 1 , .889 , .86 , ,8 36 , .808 » .855 » .82 » .795 , . 77 , 

6 .745, .72/ 

DATA l&o?/ 1 • 71 3. 1 .69, 1 .675.1.65. I »69 , 1 ,53, 1 .67, 1 .64, 1 ,63 , 

61.6, 1.545,1. 40 6, 1.64,1. 6? »1,6»1.67»1,615»1« 46, 1.61.1.58, 

61. 56, 1.525, 1.475, 1.43, 1.565,1. 537, 1.512,1 .475 .1.4 25, 

61.385, 1.525, 1.5 ,1.465, 1.425.1.34, 1.3/ 

SEARCH FOR Httill'N IN WHICH DATA lb bTuRtD 
IF ( bb.l- T .0.0 .OR . S5 .(jT ,0.90 ) CjOTD 555 
IF (bS,UT.tiC(jb( 6 ) X.0T050 

I I sMDA I - l 
r,0T020O 

50 00 100 1= l .MOAT 

II = 1 — 1 

IF (SS.lT.HCGS (11) GOT()?no 
100 COCTIbUF 

200 IF (CUR.LT.5.0)CHRs5.O 

IF (C3JR. CT. 1000, 1 GOT 05 5 5 
IF (CUR »L T » 300, ) GUT04OO 

JJsNDAI-l 

GOTOSno 

400 DO 450 J= 1 »NDA f 
JJ=J-I 

IF ( CUR .LT . AMP ( J ) 1 GOT 0500 
460 CONTI NUt 

aOD IF ( If-TTP.LO. 3) (i0T0550 
hObl 11 = f bMF ( 1 1 , JJ) 

FObl 12-fbNF ( 1 l ,JJ*1) 

FPbl 2 1 = f SMF ( I I *1 »JJ) 

EU5 1 22 = fc’SNF ( 1 I ♦ 1 » JJ* l 1 
GOT 06 00 

66(1 LOS I 1 1=1352 ( l I ,JJ> 

FObl 12=LSM2 ( 1 1 ,JJ*1 » 
t')bl2 l=t 3N2 ( 1 1 ♦ 1 , JJ) 

rob 1 22 =i stiz ( 1 i*i,jj*i> 

600 DLLSs (SS-HCGSt ! 1 1 1 / <H( C.S ( 1 l ♦ l> > -K55II 1 I 
LObl=TUSi i 1* (L0SI21-FOSI 1 1 ) *DLLb 
rOb? = f CSl 12* (I OS 122-1 Obi 12) »DK Lb 
SL= ( tub 2 -LOS 1 1 / ( AMP ( J J* 1 1 -ARP ( JJ) ) 

TCILL ( l 1 =L031-1L*A»P( JJ) 

LCfLL (2) = 0.0 
LCLLL ( 3) =-SL 
C.UT0999 
13KDR HtSSACit 

655 WRITE (( ,666) I TM* . 5S ,CHH 

646 FOR 3 AT ( / »2X » • I UPl'T DATA (l(JT Of II At'GF , I TFR « SS.CUR .PH= • » 
6/.2X.I6.3M2.S) 

STOP 

999 TIT URN 
END 


IOC 

?oc 

30 C 

40 

50C 

f>OC 

70 

100 

110 

120 

130 

14t 


****** OUTPUT ROUTlOt •***»*»»** 


SUt.lOUTlNI OUTPUT 
INCLUOh rlYPR l 


INCLUDE HYPP? 

li | Mt NS 1 OK TFMPAX (6.200) 
lMIACCtL.IO.2UjO TO 494 
IF ( II NIT.tO.OlGO TO 00 


i ini r=o 

call datf hi JUATL.JTIME ) 

WRITE ( ft , 5 i >0 ) JPATC . JT I w t * 0 T , 01 ’KT »I‘t TYP »NCYC *131 ST « 


HCVAL . VMODE. 


I 11 ) 
l<*o 
170 
180 
190 
200 
210 
220 
230 
240 
2 SO 
260 
270 
280 
290 
300 
310 
320 
3-0 


6 »<kITt t (6*51 l (iKTYP»tTYP«MTYI»« l BT YP.KF (.F N . I FCOM.UTTYP . IOOWN. ACTYP. 

6 I FAN. 1 PS * 1 AC . » ACCEL « I PRTS 

WRITE < 6 .520 ) COOL .CROL 1 .('POL? *KP »PFE .PFM.PFFW .TFWP .PEMX «PMMX .1 RAT 
WR I TE (6.530) WEMX ( WWXt WF'aMX .E SP .MSP .CSP.KOL.JWML.JENG.JMTR »MFH 
WRITE (6,540) USE. .MSP.MO.LSH'IX.PSH* X .nCHN.MVCM.KMP.MPL 
WW1TT (6.SS0) MV.DWriL.MFPT ,MC I .BCMK.BCI'.X .(GRATS(I) .1 = 1.5) 

WRITE (6,5 TO) (NTMU),lal,4) ,ND .GRM,NT>"TR , (SHIFT (I ) , I = 1 . 3 ) .CD.AF 
WRITE (6,560) (SH1FTAU) .1 = 1.3) ,FIDLE ICTYP) .W10LF. (£TYP) .VWIND.5.EPCP 
6 .POCMX.PPDCMX 

WR 1 TE (6 , 1 1 1 ) ..S.NS2 .NP.NP? ,ElC 1 »NC2 .FBREF .EBVEH.UAHC .UAHC2 
111 FORMAT (/ ,2X, *NS NS2 NP NP2 NCI NC2 FBI 
6*EB2 UAHC UAM( 2 * , / ,6 ( F5 .0) .4 (F6.2 ,4X) / ) 

WR1TF (6.5 ?5) ( I TH IP ( I ) , ( = 1 '. ') « ( SSVLL ( I ) >TSS ( 1 ) .1-1.2) .BCEFF .CMGREF 
90 IF(IPRTS.LT.O)GO TO 100 
I F ( (T*DT/4. ) -PRT) 100, , 

IF ( IFIL2.F0.01GO TO 40 

WF!lTF(22»590)T,V»Kl»K?.K4»PWHL,BSFC'> POS .PACC (I) .PJE.PJM.PT, 
fc GRT.PE.WOS, PM. WT 


340 80 PkT = PRT*l>PRT 

350 OAK ( 1 * IC ) =T 

360 OAR ( 2 » I C ) = V 

370 OAR ( 3 » I C ) = A 

380 0AK(4,IC)=PT 

390 OAR (5.IC) =Ft.OAT (EON) 

400 OAR (6. IC) =WE 

410 0AK(7,1C)=PF 

420 OAR t B » 1 C ) =EENG 

430 UAH (9.10 = F CONS/8 1 .944 

440 OAR ( 10 , 1C ) =PM 

450 OAR ( 1 1 « IC. • =WM 

460 OAR (12.10 =fcM 

470 OAR ( 1 3 » IC ) =FLOAT ( I MGF ) 

480 OAR ( 14. IC) =FLOAT 1 1BCF ) 

490 OAR (15.10 =POS 

500 OAR < 16. IC> =FBAT 

510 OAR( I T, IC) --BCHG 

520 IC=IC*1 

530 IFdC.LT. 191)00 TO 100 

540 1C=1 

5= J WRITE (6.620) 

560 WRITE (6.5801 ((OAR (1,11) ,1=1,1 OP) *1 1=1 .190) 

570 1F(IFIL.EO.O)GO TO 100 

580 WRITE (21*620) 

590 WPITF (21 .580) ( (OAR ( I . I 1 ) . I = 1 . 1 01) ) « 1 I = 1 ♦ 1 90 ) 

600 100 T = T,|» i 

610 1 TER= ITER* 1 
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620 lF<ITl.t0«l)T=T-0,9»DT 

630 IX = (T+.0006) /„001 

64C T=IX».00l 

650 UTPsDT 

660 1F<ITI.EQ.1)DTP=DT/10. 

670 TAC=TAC+P1P 

680 1F(T.LE.TFIN)RETURN 

690C INITIALIZE EGMCO.FGMHC, FTC. AT Bit, INNING OF EACH CYCLt 

700C AT THr END OF EACH CYCLE 

710 DISCYCs (KM 1/1.609 

720 EGMCO=F M CO/OI SCYC 

730 ( GMCS=EMLS/D I SCYC 

740 E:GMHC = E m H(/DISCYC 

750 EGMN0X=tHN0X/01SCYC 

760 333 DISAVEsKM 

770C COMPUTE TOTAL EMISSION FOR COMPLETE RUN 

780 EGMHCT = t<jMHCT + EGMHC 

790 EGMC5T stGMCST +FGMCS 

800 EGMCOT sEGMCOT +EGMCO 

810 222 EGMNOXT=LGMNOXT*EOMNOX 

820 ACCX=ACUR#IHASE1 

830 TEMPAX ( 1 « I C YC1 =F GMCO 

840 TEMPAX ( 2. ICYO =LGMHC 

850 TEMPAX(3,1CYCI sEGMNOX 

860 TFMPAX(4,ICYC)=FGMCS 

870 TEMPAX(S.ICYC) =ACCX 

880 TEMPAXI6.ICYC) =AHC2 

890 444 FORMAT (/,2X,»EGMCO EGKHC tf.MNOX EGMCS AVCUR 

900 6 • AHC2 ♦ ./.4 (E8.4*2X) , 2 < F H . 2 « ?X > / ! 

910C 

920 140 IF ( IPRTS.F0.21CALL C YCENU ( I ( YC > 

930 MPG=KM»2. 408/0AR (5. 1CYC ) 

940 Ft.HE sTE Ef-.G/ ( Tt EMG + EtMHIT) 

950 FGS=l.-/2./MPG 

960 IF ( E. T Y P » E (j . 9 ) TE'G=36.6/*ipG 

970 IF (LTYP.LO. 10) TEG=42.2/MPC. 

980 TEM= 3.8*SS«AHC2*NS2*NP2*E1‘VE.H/ (621 .504+KM) 

990 TKV.H = TE f *TE G 

1000 WRITI (6,777) ICYC.MPCi,SS.FLHE»EC.S,TKWH 

1010 777 FOPMAI </,*ICYC *'PG SS FEME FGS TKViH* ,/ , 1 5 ,5 ( 

1020 6 F9.4 )/) 

10 )0 IF ( I TRIE ( 1 ) .LT.2K.0 TO 149 

1040 11=11+1 

1050 1F( (NCYC .10. -1 ) .AND. (KM.GE .0 1 ST ) ) GO TO 200 

1060 IF ( I 1 .LT . ITRNUM ( IKNT) ) GO TO 152 

l f, 70 IF ( IPRTS»FG.3)CALL C YCE'NU ( IkflT ) 

1080 I K N T - I k Ei 1 + 1 

1090 I F ( | Ki'IT ,GT« I TP I P ( 1 ) ) GO TO 200 

1100 t>CTYP=lTRIH. HUNT) 

1110 1^0 

1120 (,0 TO 152 

1130 199 IF (NCYC ,<iT.i.)G0 TO 150 

1140 IF (KM.C.E .1 :ST)GO TO ?0( 

1 50 ISO IF ( ICYC.t C.\( Y( )(.() TO 2nn 

1160 IF (CTYP.NI .4) GO TO 152 

1170 IF(l*CE.G.GT.P<M'i) GO TO 142 

1 1 80 NCYCsICYC 

1190 G.) TO 2"c 

1200 15. ICYC=ICYC+1 

1210( AT T*l( H| G I f iNt, of EACH (YELL 




1220C 
1230 
1240 
1250 
12 60 
1270 

1280 200 
1290 

1 300 46 0 
1310 

1320 47U 
1330 475 
1340 

1350 4?6 

1360 

1370C 

1380 450 

1390 

1400 

1410 480 
1420 
14 30 
1440 

1450 493 
1460 
1470 
1480 
1490 
1500 
151 0C 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
16B0C 
1690 

1 700C 

1710 

1720C 

1730 

1740C 

1750 

1760 

1770 

1780 

1790 

1800 

1810 


T = 0. 

MKTsO, 

VllsO. 

TOsl.tlO 

M'TUK’i 

I F ( IRKT5*LG*0)G0 TO 450 
If- ( lRRTS-2)4b0*460*470 

I I I = l C VC 
(,0 TO 475 
l I 1 s I K NT* l 
DO 476 I l = 1 * I M 

V;H I TF ( 6 ♦ 5lt5 ) (OAR (I*ll)*I=l*I 00) 

WRITE 16*444) ( TEMPAX ( I *11 > *1 = 1*6) 

GO TO 490 
HEADER 

WRITE- (6*620) 

WR I T t < 6 * 5 V 0 ) ( ( OAR (1*11) *1 = 1*1 00 ) * I 1 = l ♦ I C > 

IF(IFlL.t*0.0>00 TO 490 

WR 1 T t ( 2 1 *5 HO) ( (OAR (1*1I)*1 = 1<I01)*II-1*K> 

r nd Mir 21 

DO 49 3 I = 1*I0L) 

OAR(I*n=(u 

V2 = r». 

V6 = 0. 

TMEFF=0. 

UAR(8*l)=ruEL/(4S4.5*RH0F) , QCy , _ 

IF (OAR (8 • l ) #GT *0 • ) OAR ( 9 * 1 ) =<■ V (OAR (R*l)*3*78541?> 
km TO MJti'b 

0AR(6*1)=KM/U60934 

IF (OAR (8 * l).GT#0#)0AK(lO*l) = OAR (6*1) /OAR (H* 1 ) 

OAR (7*1) = FUEL/ 8 1*944 

V 1 = ( DC I -r-CHG) *b$F.C (HTYR) *Mh 

I F ( V 1 • * •0.)V2»V1/CDSPC(HTYP)»HH) 

Vl=Vl/t ijREF 

OAR ( 3 * 1 ) = V 1 + OAR (7*1) 

V5 = EVi)/0AR ( 3* 1 ) *100# 

V3=OAR(7*l) /OAR( 3*1 1*100* 

V4 = V1 / 0 AH ( 3 * i ) * 1 00 • 

IF ( VI .GT.O. ) V6=0AR (6* 1 ) /V 1 
I F ( V 1 i6T *0* )OAH ( 1 ♦l)s^F/Vl 
OAR (2*1) SOAR (6*1) /OAR (3*1) 

OAR (4*1) = K M/OAR (3*1) 

OAR (5*1) =UAR (6*1)/ (OAR (3*1)/ 3*4. 1123) 

IF (OAR ( 7 * 1 ) .GT#0* ) OAR ( 1 ? * l ) = TEENCi/OAR (7* 1 ) *100* 

I F (OAR ( 3 , 1 93 ) *0T ) TMLFF =OAK ( 1 * 193 ) * 1 00 • /OAR (3*193) 

^M0AEM2 * 193) *GT*0. )OAR (4* 193) =OAR ( 4 ♦ 1 93 ) * 100* /OAP ( ? * 1 93 ) 

IN G AVt RF 

| F ( I LON.^T #0 ) OAR ( 5 ♦ 193) =OAR ( 5 * 193) * 100* /FLOAT < I EON) 

FNG AVE 5PD FRAC WF y#l _... 

IF ( I b ON *GT *0 ) OAR (6*193) =OAR (6*193) * 1 00, /FLOAT ( I EON) 

IF Cl*ON.<iT.n»OAR< U.l)=rUOUT/<-fcHlfc»Vl)«lOO» 

IFOBMiJAI 

IF ( IRRTS.(iT.O) I FORM = I A2 

((AR(l3»l> = IFUEL*378«!»Al2/27 < >!>.33)/M' >ll( , ...... 

irtRITF (6,600) I FORM »T AC ♦ I C YC tOAP I 6 » 1 ) ,KM,nAR<T«l) ’Vl.OARO.J) «E U 

H'RItfcI6.«'30)V5.V3»V4»OAKI10,n .0AR(9.n«0AR(13.I) .V6.0AKU 1) 


IH?0 
18 30 
lB90 
1 HSO 
1 Ht>0 

1 fi 7 ( I 
IB HO 
1 B90 


fc wK 'l n ( h *. 99 9 ) t* C.MCOT . C «.'•• »C T . I (,Mr:OX T , AC C X , AHC 2 

lCSF = IMXC(iAIMl.l02)) 

VKlTt Ifa.OCO) IUAN ({«19 . = •» J* MO H,lEON.IOAPtl*l« 3 >«I* 5 . 6 l 

l l)irri 6 ,'>ri» (OAK ( 1 . 101 ) . 1 = 12 . 16 ) .ITM«.I"'« •«»!. 

IF ( l ACCLL.t O.OKiO TO A‘> r ' 

1900 999 CALL ACCt-L 
1 9 1 0 CALL MAX'-tL 

1920 99 t> VJR I T i ( 6 * 060 ) 

1930 I tAI) <‘>. 66 r >) IF 0 WM 2 U ) 

1990 66S riWATCAl) 

I960 IF ( 1F0RM2 ( 1 ) .UO.' V* K»J TO 997 

19 TO 1 STOP = 1 

1980 RETURN 

1990 997 IKUOZ = 1 

2 2 S“ C ...." L » L U«'uI THfc C«t> .05 COMOUIfO. «*"« .500 

ao 20 C****'(AS HtfcH CHANGED FROM 

2030 C****»»« • A<>* 6 r •••• 

2090 C****T 0 . • » • A 9 * A 1 » 2 A 9 » . • • 

2050C****F0R PRlMOUT OF DAT! >N U - j up OR MAT ION MYVEC • / 

2060 900 rnRMAT(lM0 ; T13.'VFHlCLt RW ^ R pcTYP f.CYCS 01ST*. 

20 7 80 t I^CVaC SoDE 5 IoH VBCMH./lX.«.A 8 ,F 6 .l.F 8 . 1 .I*.l*. 

2090 6 FB * 1,F5 :5;vo 6 pTYp 7 t*TYP HTYP RGH. ItCON DTTYP IDwN ACTYP* * 

2100 mo^o^atuhoj.ctyp fty 1l ( tjp t? 

\\M * 2 Y 0R ? at u”p’”e^ 

7 1 ^0 6 F6«1*2F7*1*F7 # 3) , , tT ?» . « ESP MSP CSP KOL * • 

2190 q ^FORMAT 

2170 b F 4 ;^, l ^ , T Fb ^cc? , Tl 9 .'» 5 P , «T? 9 ,*''» , »T 30 «*ESHMX P 5 BMX 
21 B 0 5 ^ 0 fc F ORMAT I.IHO .T J^BSE .Jl icPl •/ 1 X» 2 F 9 . 3 *FA» 1 , FH. 2 .F 7 . 1 . 

2200 b 2 Fn.l*F 9 . 2 .F 9 . 1 > ^ ( , CJ H CMN HC MX TRANS ’. 

«‘S 5 V 0 ^»>h!*: 3 ^ 

2230 4F6*3»F0*3) . ffn , «» rp if) SPH VWlND OWAr>t # « 

!!S ’“/TJJfr; c » ; ; 

2330 6 FB.l«F 7 . 3 . 2 F 3 . 0 . 2 tlO, 9 , 6 . ((M t,T 22 » 

2910 600 FORMAT ( A l.» SUMMARY RUN PtSULTS. // 
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2*20 

2*30 

2**0 

2**0 

2*60 

2*70 

2*80 

2*90 

2*00 

2510 

2520 

2530 

25*0 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

26*0 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 


6 

b 

t, 

b 

b 


1H * I 3 ♦ • T I Mf 1 •Tll* f ^CYC # *T20« # Dl bTANCE 1 •T35* I TCMEM fe f « 

T*6 « • t L tC t • «T56« •TCCQNS* *T65 • # TEDEL 1 V • 

/IK «T3* # (bEC) • .Tlflf* (M! ) • •T?7tMKM) • *T 35 • • (KW-HR ) • t 
T*5 • * (KW-HR ) • *T56 • • (KW-HR ) • ♦ T65 * • (KW-HR) • / IH «F0#1*I** 

63oVoRMATUHo!t 2!*SYSTF.M',TIO.'TCHKM E*« Tift* 'ELEC E*»T26.»TC EFF*. 
b T 36 * • I f EFF* »TA5*'TC FFF • .TSb.'FLC EFF • ♦ T65 « * ELC EFF'/IH .T2. 

^ *EFF (ft.) •» T 1 2 »•(%>)• * T 20 »•( %) ' »T?7 «•< MPG) •• T36 »• (KM/L )• « 

6 »L/ 10UKM' *T5>5« 'M/KW-HM' »T64» ' KM/KW-HR ' / 1H .2F8.3.F7.2.2FB .2* 

640 6 FORMATaH0,'SYS FFF SYS FFF SYS IFF • , T 3 1 . • EBOUT • . T« 1 . * EBIN* • 

6 TA9.'TIRE HR AFRO l)G* »T67 »• ERGEN* / IH .'M/KW-HP*. 

6 T 11, 'KM/KW-HR M/EQGAL (KW-HR) (KW-HR) (KW-HR) ', 

6 TS7 * ' (KW-HR ) (KW-HR ) * , / l X ,FH • 3 »F9 ,4 *F9» 3 «F 10»5 » 1 X 

6SO fc FORMATaHO*' 9 Rtn»'»T12.'TElNG'«T2i*'FINAL I N1TL CH T,MF EEFF ’? 

6 T <»8 *' NEFF '« Ti>5, 'OEFF' »T6l « 'CiLFF ' ,T67 » 11 BRAKE' / IH *' (KW-HR) » 

6 T12,' (KW-HR) HCHG HCHG' ,T 3A , • (HRS) (*) ♦ ,T48 . • <«> * * 

& T*55»'(9o)'»T62,*(%)*»T68»' <KH> •/1X»2F9.‘>*2F6,3»F7#3»3F7.2» 

6 F6*2«F6*3) .nvnAAit 

620 FORMAT ( 1 HI ,*X* 1 T IME • *T 1 3 *• VEL • *T20 • • ACCEL • *T27 * PTRAN « 

6 T36, 'TO' »T40« 'WFNG' »Ta 9* 'PENG' »T59, t EENG' «T67*'TC £N* * 

6 T78 » • PMTR ' ,T89,'WMTK' »T97»'FMTP' *T 1 02 « » MG' .T 105 ♦ • BC ' «T 109 , 

6 'PUS* ,T119,'E»AT' »T128» 'BCHG'/> 

660 FORMAT (1H ANOTHER PUN INPUT Y OP N:') 

670 FORMAT ( 1H0* 1 X * • FPWR ESPO MPKR GPwH MSPD PBOUT PBIN 

6 'R|)S -PDS VMAX AMAX UPS ' / 1 X »F 6 • 1 *F6»0 , 2F6 , 1 «F6»0 »3F6« I « 

h F7.1»F6.1»F6.2»I3> 

6H() FORMAT ( 2X * ' EPF ESF MPF GPF MSF • ,T37, • l TER MON « 

6 T S 2 « ' F. ON AVLPF A VtSF • / IX ,SF 6.2 , 3 1 8 » 2F6. 1 ) 

RETURN 
) NO 
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10 


‘jUMfifjiJTIM. ACC 


20 c 




30C 


this sip-routihe commutes tui acossoi 

Y MOWFH UEOUIRFMFNTS 

40C 


IMCLOOL HYPW1 


soc 


tlMCUJOF HVl'IJ? 


t>oc 




70C 


AC T YP = l . STANDARD MODI L 


HOC 


ACTYP=2, V7H 1 AdLF SPFFD 


90C 




1 O0C 


ALL Mf,i»FW ID KILOWATTS 


110 

50 WTA-WF/IOO. 


120 


PALTsO.I. 


no 


PFAnsO.i 


140 


PPS=U.O 


no 


MWPsO.f; 


no 


PAC=O.P 


1 70 


MMLOSSsii.O 


no 


PVLOSSstJ.O 


190 


PSTARTsli.O 


200 


PTLUSSsD.O 


210 


JAC=I AC 


220 


Ml m Ts0.i: 


230C 




240C 


CHF C< AIK CODDITIMP Of /OFF STATUS 


2S0C 




260 60 

IF < JAC.FO.O) C.O TC 70 


270 


1 F ( ITtF.ST.lTCD) GO TO 65 


280 


JAC=1AC 


2 90 


03 TO 70 


300 65 

I TtL = ( I UR-ITCO)/ ( IAOF.UU.J) 


310 


l'iF»=(I 1 F R- I TCD ) - I Tt L* < lAOfidAUt ) 


320 


IF ( lOtw.LL. 1A0F ) JA.C so 


330 


IF t IflL'A.OT.IAOF) JA< s I AC 


391C/ 




4O0C 


COOKJTF CLUTCH LOSS FOP FOUR SPIED 

TRANSMI SOON 

401 C 




410 

70 IF (JhLLf .1-0.1. AUD.FON.F ).0) 1.0 TO 

f H 

411 


IF I ( t.DFi*l'(i.'l ) . F.U.O) 00 TO 7 H 


412 


RrHiI = .B :, 45 


420 


*;>S2 = V«ORATS(5) *GRT*6.305 lb/DMIL 


440 


IF (MON. t(;. 0) GOTO 73 


450 


IF (WOS2.0F .WIUL) M) CO TO 7I» 


460 


W'*OTsWM 


4 70 


03 TO 74 


4B0 

73 

IF (WDS2.0F .WIDLL (ETYP) ) 00 TO 7H 


490 


W V UT = WL 


491 

74 

IF (WDS2.L0.0.0) 00 TO 7B 


500 


MlHTsPDS* (WM0T/WDS2-1.) 


530C 




540C 


HF AT t C:o|Nf START! NO MnwcR PFOOiri f’ENTS 

550C. 




560 

7H 

\ MMEUCS0 # U 


561 


ir(ivAC«io«n f f iMirriO= • i 


562 


IF ( I VAC.I O .2) L MMEhCi= • 56 


570 


tiCi=9 # e 


5B0 


Kb =9L lB**FMniN(,*PL^ X / ( (WEVX>*»2*) 


590 


tXM5sKt*(.0»T5tf4CT/JtN6 


600 


PST AWT =PE MX«bPMLNG*<W5b/wfMX ) **2. 

/ < l.-FXP(~EXPS> ) 

610 C 





■J ^ » i l . . V * * 

0F POOR 


P^tslk H;j 

QUALITY 


3-04 


GENERAL^ ELECTRIC 


720C 
73QC 
790C 
750C 
760 90 
770 
780C 
790C 
800C 
810 95 
820 
830 
890 
850 
860C 
870C 
ftftOC 
890 
900 
9 IOC 
920C 
930 
990 
950 
960 
970 
980 
990 
1000 
1010C 
1020C 
1030 
1090 
1^50 
1060 
1070 
10- r ( 
OC 

non 
1110 
1120c 
l 1 30c 

1190 

1150 

1160 

1170C 

1 inoc 

1190C 

I200C 

1210 

1220 

1230 

1290 

12 50 
1260C 
1270C 
12 80 
1290 

1 300 

13 10 


TRANSMISSION PUMPING LOSS! S 

IF IFAT-I LOSSES ANF TO Bf INCLUDED 

1F( lEAT.f 0.0) GO TO 95 

MTLOSSs 1.62«WFA*2. 69*WF A** 3*0-2. 2#WFA**2 

MOTOR FRICTIONAL AND ROTATIONAL, LOSbF 5 

I F ( ILM.Mj.O) GO TO 100 
PFl = CFF* (WM/WBASF ) *#NF*CWW# (WM/WHA&M *#NW 
PFLOSS=FFt /1000. 

IFf IEM.FM.1) GO TO 100 
PFLOSS=U C* <WM/wDASF> **NC / 1000 . 

ALTFWNATOP 

100 PALTs0.9S*(l-IALT)*1.2*lALT 
IF (ACTYP.FQ.2) GO TO 600 

RADIATOR FAN 

200 IFUFANctG.OJGO TO 300 
4 F (WFA.GT.0.22) GO TO 260 
PFAN = 0 .<JOS*PEMX 
GO TO 300 

260 IF <WFA.GT.O.P7)GO TO 260 

PFAN= (0.005*0.0923* (WFA-O. 22 ) ) *PFMX 
GO TO 300 

260 PFAN = 0.(I65*PLMX 
WATER PUr-p 

300 IF ( iWP.tU.OKiO TC 900 

IF (WFA.GT. 0.326)00 TO 360 

PirfP=0.0ni9*PFMX 

GO TO *00 

350 PrfPs ( 0 . 00 1 9*0.035 »<WF A -0.32 6 ) *0.038* i WFA-O. 326 > **2 ) *PkMX 

POWER SMtRlNG 
900 IF < I PS • t (.' • 0 ) GO TO 5 
PPS = 0. 74* *WF A 

AIR CONDITIONER 
600 I F ( JA( • L(. .0 ) GO TO 999 

PAC = 2 .2 6*9. 0 * <WF A-0.2 ) -1 . 1 l 3 * ( WF A- 0 . 2 ) **2 
GO TO 999 

VARIABLE 5PH O 

RADIATOR FAN 

*<>(, I M I FAn.LQ.O ) GO TO 700 

IF ( wr A . CiT . 0 . 78 ) GO TO *50 
PF ANsD.no 7 6 * P E M X 
GO TO 700 

66 u Pf A N = (P.fj076*(;.095* ( WF A-0 . 78) ) *Pf-oX 


WATER PL '-P 

700 I F ( I WP. FO.O ) GO TG MOO 

IF UFA.GT .0.7M)(iQ TO 760 
f>rtP = O.Oi' 38 *Pt^X 
CiD TO HOP 
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1320 750 PwP= <0.0038*0. 025*'<WFA-0. 78) ) «PEMX 

1 330C 

13A0C POWER STEERING 

1350 800 IF < IP5.EQ.0)GQ TO 900 

1360 IF ( WF A »GT .0 . 78 ) 60 TO 850 

1370 PPSsO. 1865 

1380 60 TO 900 

1390 850 PP5=0. 18o5*0.3A« (WFA-0.78) 

1AOOC 

1 A 1 OF air conditioner 

l A20 900 IF t JAC.E0.060 TO 999 

1 A30 IF (WFA.GT. 0,78)60 TO 950 

1 A AO PAC=2.35 

1 A50 60 TO 999 

1 A60 950 PAC=2.35*1.525*<WFA-0.7h) 

1 A 70 999 PACC<A)=PALT*PPS*PEMT 

l A7 1 (F ( JAC.EC.2) PACC<A)=PACC(A)*PAC 

1 A80 PACE < 1 ) =P ACC < A ) *PWP*PTL05S*PFAN*PAC 

1 A8 1 I F ( JAC *E 0.2) PACC<I)=PACC<1)-PAC 

1 a90 22? RETURN 

1500 FND 
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ioc*<»*»*»**»»«*«««*««*»*****»»«**»**«**»**«**»***»»* 

20C EPA cycle subroutine 

30C**a*»»«*»«»*»*»**«**»«**«***»»*»»**»*»»*«»**»**» 

6QC 

SO SUBROUTINE EPACYC (T.V.A.TFIN.DCTYP) 

60 PARAMETER NPT5=2137 

70 DIMENSION VEL(NPTS) .ACCEL(NPTS) .TLJPIT(6> »TZERQ(6) 

75 INTEGER DCTYP 

HO DATA N/0/ 

90 DATA TEIMIT /505. . 1372. ,2 137. , 1 372./ 

100 DATA TZtRO /O. .535. . 1 372. .0. / 

HOC * 

120C T ZERO START C. »V' DAI A FOR PARTICULAR CYCLE 

130C TlIMIT END OF »V* DATA FOR PARTICULAR CYCLE 

160C 

1 50C DCTYP=5 TPAN5ILNT 10-505) 

160C DCTVP = 6 STABILIZED < S06- 1372) 
l 70C DCTVRs7 HIGHWAY (1373-2137) 

180C DCT YP=B URBAN (TRANSIENT ♦ STABILIZED) (0-1372) 

190C 

200 50 IF (N.EO.O) READ (25.10) ( VEL ( I ) , ACCEL ( I ) . I = 1 .NPTS) 

210 10 FORMAT(V) 

220 Ns 1 

230C 

260C NOW COMPUTE V t A FROM T PARAMETER 
250C 

260 60 TFINsTLIMIT(DCTYP-4)-TZFR0(DCTYP-A) 

270 IF (T.GI.TF1N) T=TF IN 

280 I s I F I X (T*TZEH0(DCTYP-6) ♦ .69) 

290 VsVEL(I) 

300 AsACCEL C 1 ) 

310 100 RETURN 

320 END 
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' 


010 

o2oc<m> 

q3QC 

o*oc 
osqc 
100C 
110 
120 

1 30C 
IAO 
XbQC 
160C 
170 
180 
190 

2 OOC 
210 
22 0 
230 
2<*0 
250 
260 
270 
2 80 
290 
300C 
310 
320 
330 
3A0 
350 
360 
370 
380 
390 
400 
410 
420 
430 

4 AO 

450 

460 

470 

480 

490C 

son 
510 
520 
530 
5*0 
5 50 
560 

S 70 
580 
590 
600 
610 
620 
30 


subroutine dcmoto 

* 00 * 00 * 0 * $ 00000000 * 


INCLUDE 

INCLUDE 


HYPR1 

HYPR2 


IE 


CUNY 1=0. 0Q0<*fel4fc 
C3NVi?n 7 «0<» 73B 
THIS IS NUT THE F I 
I r ( MOV/f H.EQ.U CiQ 


T 1TPAT10N 
TO 100 


SKIP THIS SECTION 


COMPUTE BASE QUANTITIES FOR MOTOR TO BE UjF 
PHASE 8 VHASE *1 BASE 
T BASE =CUNV2*PHASE/Wt'ASf 

C 0 MMUTE A BASrluANTlTlE 5 W RLE fHf NCE MOTOR 
PHASL1 1 VMAStl * IBASE1 
TBASE1 = C0NV2*PBASf 1/WHASF1 

jMT«sUM0Tl*lPOASE«WBASt.l* # ?> > (PBASE 1*WHA5E 2 
K E = AK V*WllASE 1 *FBASt 1 /VHASE 1 

s; i stwsmk !?& r ft <-««»; , 


KHl 

RH? 

00 i 

B02 

BD3 

WA 

RF 

RL 


RbTl/RBASF 1 
= RbT 2 /RBASf 1 
s fUiOl/VBAStl 
= F>HD2/RBAbEi 
= BHD 3 /MB ASF l 
= RPA/RHASE 1 
= RRF/kUASEl 
= RPl/FHASEI 


ACM AX = AACMAX/ IHASt 1 
FCMAX = AFCMAX/ l BA51 1 
FMAX = A F F 0 / F H A S E 1 
F M I N s AFK I N/FHASF 1 
WF 1 r Vi* FI /PBA5F l 
rtDCil = wwpCii/Pi'ASE 1 
WLOOIC = PLOGI C /PHASE L 
P/PBASfc 1 

FLJX=FLOXI /FHAbFl 
ARMLOWsEUPLOW/ I BASF l 
COW LPT OATUKY PAP AM I T F PS 
VNZ = V C Z /VHASE 
VNF=VCNF /VHASE 
PNZ-RCOZ / PH ASt 

PNF = RCNr/Rl*7ASF 
AlPHAT ( 1 ) =Al PHA ( l > 2VB“Sh 
AlPMAT ( 2) = ALPHA (2) /VHASE 
A L P *3 A T ( 3) rALPHA ( 3) 

Alpha T {*) -alpha (Ai 
alpha t ( s ) = alpha < s ) / vHa 1 
t3F T A T ( 1 ) =H1 TA ( l ) /RHAbf 
HF t AT ( 2 > - \l T A < 2 ) / PHA SI 
bl TAT < 3> =10 TA( 3) MhASt 
HF TAT ( 4 » =M TA(4)*II , AS( 
iU T AT ( 5* =M T A ( ‘ ) / W H A S I 


SI 


GENERAL^ ELECTRIC 


640 

F |T"f 11/VbASt 

6T)0C 

^|T l M 1 T 1 A|_ VAMlf S 

660 

O.d 

670 

l‘jh Tno 

6 HO 

JFUUX"0 

690 

(iO TO < 1 0 • 20 • 30 ) , IOTYO 

700 10 

rn s AU'HAT (2) 

FIO 

FI b < ALOHA T (21-1 IT) *0' 

720 

F2 = -FF TAT C 2 ) *09 

7 30 

GO TO 40 

74 0 Z > 

H>sVNF*f!< l*UU 

790 

F 1 s0 # 0 

760 


7 70C 


7 80 

(,U TO 40 

790 3< 

E0svN 2*'«C l«Mb 

BOO 

F l s 0 * 0 

BIO 

F2=RNZ*0( i*Uh/W 

B?0 Ad Il.ObS “ ( V.LUG 1 C l/LC) 

830 

tMRFFsf t)#VOAbF/Ob 

B4() 

JJ*R=i 

B 90 

VCHOPsf n 

860 

HPSAVl = 0.0 

B 70 

ALlMlTrl ALU/IHASC.l 

BBO 

AM I N i = ACMAX/2. 

B90 

AMIN2 = ACM AX/ 2 • 

900 *>0 

IF ( 1HS.UJ.0? 00 TO 60 

910 

antoti=no*ks 

920 

ANTOT 2sM»V*NS2 

930 

ANPJLDl=OF» 

940 

ANP0LD2=NP? 

990 

AwSOLOmS 

960 

ANSOLD2 = .\S2 

97C1C IbMP = 0 IF NO STARTING RE 

9B0C 

IbKIP NOT E DUAL 0 IF JFLFC 

990 60 

ISMR = <> 


2« 


i I i 

I • (l 


KEUUIKFD. 
, STARTING 


KFSI5TOR I b KLQUIRbD 


1000 
1 0 0 
lOiO 

10 30 
1040C 
1 050C. 
1060C 
1070 
1080 
1090 
1100 
1110 
1120 
1130 

mo 

mo 

1160 

1170 

11 BO 
1190 
1200 
1210 
1220 
1230 


IF ( JCLtC.E0.2> t&KfP = 1 
MODE = 1 

IF UH.tt.tO.?) MODE = ? 

MOVfcKs I 

UtGIN EACH ITRATION HERE. 

CONVERT INPUT FOR THIb ITRATION TO PER UNIT DA5E 
100 RRM 1 = WM/WUASL 

PMfCH = FMMOOO./PUASE 

IF (FLUX. fO. 0.0) FLUX = FLUX1 /FHAbI 1 

JFLUX=» 

JJMRrO 

IF ( IMCiF .EO. 1 ) PMf.CM=-PMFtH. 

IF (wm.lT.wIDLEM)WM = WIDLEM 
IF< IbS.F.0.0) GO TO 110 
IF CSS. Gl .P.7) UO TO LOS 
IF CwM.uI .WHASI ) GO TO IPS 
NP = 2.*AflP0LDl 
NS : ANS0UD1 J2 . 

MP?=?.»AW»0LD2 

NS2=ANSOLP2/?. 

I SET= I SET ♦ 1 
JSET=P 

IF USE I *M . 1 ) GO TO 110 
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1260 


EOrf 0/2. 

1260 


f. lnEl/2. 

12 60 


F2”t 2/4. 

1270 


C|U TO UO 

1280 

106 

jSET=jS|-T + | 

1290 


If (jUt f.f U. 1 ) 1 or, 1 0*2. 

1300 


IF USf 1 #FU. 1 ) 1 lcf 1*2. 

1310 


ir U6F I .1 Q. n 1 2 r 4 • * 1 2 

1320 

NPnANPOU'l 

13 30 


NSsANSWPl 

1360 


NP/sANMPLD2 

1360 


N52 = AN5(.jLD2 

1 360 


lbt.TcO 

1170 1 

10 

CONTI NW 

13 80 


RPM s H>M1 

13901 

TO PHI VIM 'IliMf H It Al, MROHUMS 

1400 


|F <RPMI.lT. 1.01-4) F.PM = 

1610 


HAb = KA.HL 

1620C 

Tt ST 

TO St F IF IT lb TIMfc TO : 

1630 


H b T = 0 . 

1460C 


IFCISKlP.eO.UHSTsKHl 

1 650C 


IF (IS* IP«kCl.^)HST s HH<! 

1660 

115 

RAA s KAU+HST 

1470 


GO TO < li>0«400*400) »MPDF 


l.OL-4 


1 4 HOC 

1490C MOW = 1 ARMATURE VULTAGE CONTROL 
lbOOC *************** ******* ###*# 

1510C 


1520C 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610C 
1620C 
1630 
I640C 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1 760 
1750 
1760 
1770 
l 7B0 
1790 

1800 168 
1810 
i H20 
1830 


COMPUTE MOTOR TOROUtS AND LOSSES 
160 wlFL = LF*RPM**i\lF 
tfDG=CW*RPM**Nw 
tfSL=0.Ol*AHS<PMeCH> 

FLUX=FLUX1/F0ASE 

CALL CORLQS(WCLL*FLUX»KHA$bl *VPHl * VWCL .PHASE 1 ) 

tfCL = WCLLM WBASE*MPM/WDAT ) **NC 

w/LL = wCL+WDG^WFL*WSL 
U = <WEL*PMECH> /RPM 


210 


CUMPUTF ARMATURE CURRENT 

160 I ARM = TL/<KT*FLUX> ninnMlT 

PRfcSfcN» PROGRAM SETS LIMIT ON MAGNITUDE OF ARMATURE CURRENT 

JT0RQ= l 

I F ( I APM.l T • ACM AX • AND® I ARM.GT • ARMLOW ) GO TO 168 
If < fARM.LT.ACMAXl GO to 265 
TTKsO.Ul 
I ARMsACMAX 
te=kt*f LUX*I ARM 
wlELT =WtL -WSL 

PMECH= <RPM*TE-WELT) / ( 1 .0*TTK) 

WEL=W£LT*TTK*PMECH 
PM rpMECH* PHASE/ 1000* 

J TOR 0=0 
GO TO 168 
JARMsAKMLOW 
TTK=-0«01 
GO TO 210 
VB=BD? * I ARM 

IF < I ARM.GT.ALIMIT) VH = m>2*BDl*I ARM 
CEMFbKL*FLUX«RPM 
VCHOP=Cf MF*VB*S ARM»RAA 


266 


0F f, WR 'JUA14TY 


3=70 
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IH40C COMPUTE APPROX I MATf BATTERY CURRENT 

1HS0 ABAPR ” ( J ARM* ILOGS) #VHASE 1 *VCHOP/ ( EOVEH*NS2 ) 

i860 AflATTr.AP,APH*UAHC/UAH( ? 

18 70 £BATTnfcO~SS»E l^ADATT*H: 2 

lano EOAT?ntPATT#(-hV( LH#NS?/ <EBREF#NH 

|fl90C 

19GGC COMPUTE CHOPPER EUSSf S AND FIELD CURRENT 


170 


CALF CHOP ( 1 ARM .VCNGP«t OAT ? % WCH( IP • VHASf U I BASE! *?) 
ATARMclAHM#AHTURN 

CALL F U ED (FLUX.ATARM.FTURN, lEEruKMAX.VPhl *VAT . I BASE 1 tE BASE 1) 
WELDs < RE * I FLUMPED) /Ff FP 


SOLVE 


mo 

1920 
19 30 
1940 
19S0C 

1960C COMPUTE HATURY CURRENT 
1970C QUADRATIC L'JUATION 
1980 180 WLOSSswPLD + WUKilC^WCHOP 

1990 VCHQPsM *RPM*FLUX4V0*RAXM ARM 

2000 PBAT2 s WL0SS* VtMOP# 1 ARM 

2010 111 CALL PAT ( 1 ) 

IF CHOPPER VOLTAGE IS ORl ATEH THAN BATTERY VOLTAGF SWITCH TO 
MODE 2 OPERATION - FIELD WEAK EU I NO 
************?*****$ ****************** 

I F ( VCHUP.GT .EDAT2 ) MODE. = 2 
IF(I5KIP#EO#0) GOTO 380 

IF < I SK I P.EO. l.AHD.lARM.LT* AMI M> JSKIPr? 

IF < I SK 1 P .EO. 2 • AND. I AR M . L T .AM I N2 ) ISKIPsO 
380 IF (MODE. EQ. I ) GO TO 800 
FIELD WEAKENING CONTROL MODE = 2 
************************************ 

COMPUTE MOTOR LOSSES FOR GIVEN SPFtD 
400 WDG=Cfc*KrM*«Nw 

wfl=cf*rpm##mf 

W$L = G.Gl«AE)S<PMECH) 

INCLJDE HPuSH DROP 
<♦20 IF ( IARf wG T.ALl^IT)C0T042S 

v o s o • o 

RAX =RAA^HD3 
IDO = l 
GO TO <00 

42 S VH = SlGN(hD2* I ARM) 

RAX = K A A ♦MD 1 

n;o=2 

430 TS= (PMECH/RPM) 

COMPUTE FLUX SOLVE QUADRATIC FOUAT T ON 
IF IN ^ODf 3 OPERATION SK I P THIS SECTION 
IF (Mqd»; • E 0* 3 ) C.0T04S0 
440 AA = KC *KT«WPM*RPM 

HB=CCOLF *RPM**NC* (R AX *12) 
b ♦ ( lL0bb*E?^VO-E0*E 1* C >S) *WPM*K T 
CC = ( RAX ♦( ?) * <WFL*WSL*aI)G*TS*RPM) 
r LUX= ( -LB* SORT <DD*LH-4.*AA»CC) ) / (?.*AA) 

jra)=i 

TMPspf\*j»D-4 # *AA*CC 
IF (TMP.GT.OeO) GO TO 

WRITE <o *888) ITLR.IARf'*AOAT2.P u AT2*tO,F2*EUEOAT2*SS*lLOS5*Vli 
6.AA.MP *CC *CCUI F eMP.f4S.NP? *MS2 *PE . » t . PDS * PMXM * PMXE * V * I GEAR 
8 B 8 FORMA I ( ft . • ITER. 1 AUM .AllA T? .Pi AT? .fcn.t? «E l * E BAT 2 * SS * I LOSS * Vb • . 

6/.»AA.MUCC.CC0FF.NP*r S.NP2.NS2.P) ♦ WF . PDS « PMXM * PMXE ♦ V • I GF AR s • */. 
6IS*4(fE 12.S/J ♦ IS) 

233 IF (FUJX.GT.FMiN) GO To ^2 
F L U X s F r* I N 


2020C 
2030C 
2040C 
2060 
2060 
2070 
2080 
2090 
2100C 
2 1 IOC 
2120C 
2130 
2140 
2 i SO 
2160C 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
22S0 
2260C 
2270C 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
23SO 
2360 
2 3 70 
2 380 
2390 
2400 
2410 
2420 
24 30 
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2440 

2450 

24 60 
2470 
2480 
2490 
2'3UO 
2510 
2520 
2530 
2540 
2550 
2560 

25 70 


442 

*♦11 


412 


447 


GO TO 460 

GO TO (411*412) * JELEt 
IF <ruUX.l,T.FMAX. GO TO 445 
MODt .= 1 
FLUX=FMAX 
GO TO 160 

IF (FLUX. LT. FMAX) GO TO 445 
JFLUX= 1 
FI UX = F^AX 
CE MF = K T *PPM*E LUX 
1FCEMF.GT. (EO+VB) ) GO TO 447 
JUMPS 1 
I A P M S n • 0 
GO TO 445 

I ARMs- ( CEMK“t O-Vb ) / (E2 + RAX) 


2580 

2590C COMPUTE MC n COWL LOSS COEFFICIENT 

2600 445 CALL CURLOS ( wCLL *FLUX *FbASE 1 * VPHI * VWCL *PBASE 1 ) 


2610 

2620 

2630C 

2640 

2650 

2660 

2670 

2680 

2690 

2700C 

2710 

2720C 

2730 

2740 

2750 

2751 
2 7h0 
2770 
2780 
2790 
2800 
2810 
2820 
2830C 
2840 
2850 
2860 
2870 
2LB0C 
?B90 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 


v.‘CL = WCLL* (WbASMRPM/WOAT) **NC 
CCOEF = WC LL* < < VrBASE / WDAT > **NC ) / FLUX 
COHPJTF ARMATURE AND BATTfRY CURRENTS 
IF ( JFLUX.EO.O) GO TO 450 
WE L T = WUG^ WFL ♦VvCL-WSL 
TE=KT»FLUX*I ARM 

ts=tf+wclt/rpm 

PM= (TS*RPM) *PBASE / 1000 • 

4 50 I F ( JFLUX © NE • 1 ) I ARM = ( WDG + WFl ♦ W SL ♦ WCL <* T S*RPM ) / ( RPMftK T*F LUX ) 
COMPUTE APPROXIMATE BATTERY CURRENT 
451 ABAPR s IARM+ILOSS 
COMPUTE TOtAL ELECTRICAL LOSSES 
AT ARM = AR TURN* I ARM 

CALL FILL 0 ( FLUX * AT ARM *F TURN * I F LD *FCMAX *VPHI * VAT *1 BASE UFBASE 1) 
WCHOP=aCP 

^FLD=RF*IFLD*IFLD/FEFF 

dL0S5= (RF*IFLD*IFLD/FfFF) ♦WCHOP^WLOGIC 
JND = ? 

POAT2=*IOSS* i ARM*VCHOP 
CALL BAT U> 

I LOSS- AB AT 2- 1 ARM 

VCHOP= <E0-SS*E1-1BATT*F2) *E BVEH*NS?/ (N5*EBR£F ) 

IF ( MODE • F 0 • 3 ) GDT05 1 0 
CHfCK TO SEE IF BRUSH MODEL lb VALID 
TMPs ( 1 •O-IARM/ALIMIT) 

IF (ABS(TMP) *LT*T0LR>G0T0500 
IF ( I DO • EG • 1 .AND. 1 ARM.GT.AL 1P1 T) GOT 04 2 5 
IF ( ID0.rG*2.AN(>.lARM.LT*ALlMlTKiOT()420 
CH[C< TO SEE IT ERROR IN COMPUTATIONAL IS WITHIN LIMITS 
500 T M P = AEb( 1 * 0- AhAPR / A0AT2 ) 

TMXs AEb ( ABA T 2 i 
TM2sAFb( IARM) 

IF (TMZ.LT*0.02) GO TO 2 22 
IF ( TMX »lT *0.02 > GO TO 22? 

CONTINUE 

IF ( TMP.GT.TOLR) GOT0440 
CALL PATIO) 

VCM0P=tBAT2 
CONTINUE 

I =P| ,A5F p ( VC HOP* I ARM ) + ( I FLO* * 2 ) *RF / ( FL^F* I 000 • ) 

IF ( IMGE . GT ® 0 ) GO TO 825 
TAR (I ♦ 193) ‘OAR < 1 ♦ 193) ♦PM*DTP/ 3600. 

DAW 0*193) s()AR (3*193) ♦ PMIMUP/ 3600- 


255 


475 


520 


222 


510 

BOO 
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;f ( to h*>o 

OAR (?, IQ 3) = GAR <2i 193) ♦PM*DTP / 5*00 • 
OAR <Ai 193) =OAK (A* 193) ♦PM 1 *IUP / i600i 

a‘^oto=vc;hop^ i AUM^wnn 
AfPf S= {KA^HL) MAR 1***2 
*<RbT = RSTMARM*#2 
dTH AT2 = fUAT 2* VO ASF 
wABAT2 = ABAT2MHAbl 
WM0AT2=PUAT2*PHA$L 
WlARMsl ARMMBASC 
a|FLUX = HUX*FOASK 
WWFL() = ^FLD«P0A5F 
*|WDCi=WUG#PHAbL 
WWF l = WF L*PU ASt 
rtWCHOP=WCHOP*PBAbF 
^WRFS=WRE5*PBASE 
vJWCL = UCL*PBAbF 

RM0T = FU < AT2MARM*PRASL^WFLD*PBAbF 
EM=PM* 1000* /RMOT 
emt=pmmooo/wpbat? 

UPMsPMMOOO. 

COMPUTE THt ELECTRICAL LOSSES 
FACTOR = PBAbE*DT/3#6F6 
ENCL = E f 1C L*WCL*F ACTOR 
ENF=ENK+WFL*FACTOR 
ENrfDG = ti\WDG + WD(i*F ACTOR 
FNbL=F^SL+W5L*F ACTOR 
enchop=fnchop+wchop*factor 
EMF LO = t KFLD+WF LD*F ACTOR 
ENRFS=FNRFS*WRLS*FACTCR 
ENWbT = t.NRST*WRST*F ACTOR 
EOUT s F OUT +PMLCH* FACTOR 
ElN = Lir<*ABAT2*EBAT2*FACTOR 
E I PCU = 1 1 PCU«* WCH0P + WL0G I C 
E I MOT 0=E IMOTO+WMOTO*FACTOR 
RP5AVE=RPM 


50 30 

30 AO R2b 
jObO 

J 060 850 
3070 
30B0 
3090 
3100 
3110 
3120 
3130 
3 l AO 
3 1 SO 
3160 
3170 
31B0 

3190 

3191 

3192 

3193 
3 1 9A 
3200C 
3210 
3220 
3230 
32 AO 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 

33A0 999 
3350 
3360 
3370C 
3380 
3390 * 

3A00 * 

3 A 1 0 * 

3A20 * 

3A30 DlMENblON VPH 1 ( 1 ) « V AT ( 1 ) 

3A40 LOGICAL NEG 

3A50 DATA TOL /«00b/ ♦ NITFR /20/ 




^ a/. 


'I' . 1 . 


*J7y 


RETURN 

END 


SUBROUI INF. FIELD (FLUX , ATARM .FTURN.FLDI .FCMAX.VPH1 tVAT ♦CHS.FBS) 
TORINO FIELD CURRTNT FOR OIVEN ARMATURE CURRENT AND FLUX 


3460 * 

3470 FILD=5»0 

3A0O FLX=FLUX*FBS 

3A90 ATAMrAl ARM*CB5 

3500 FFCMAX=FCMAX*CH5 

3510 NEG=. FALSE. 

3520 DFILDsFILD 
3530 NSW=0 

3540 10 DO 50 ITsl»NITER 
3550 ATFLD=FILD*FIURN 

3560 PHILs.6667*PHi <ATFLD«VPHl »VAT)*.1667*(PHl (( 
3570 6 ♦ PHI ( < ATFLD-ATAM) *VPH! .VAT) ) 

3580 IF (N5W .ECU 0) 00 TO 20 


ATFLD+ATAM) .VPHl »VAT> 
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3640 FLK-PHIl 

3600 (il) TO 70 

3610 20 IRHsFLX-PMlL 

1620 IF (AHSIEHR) .LT.TOLl 00 TO t.o 

3630 IF (EHR.LT.O.) 00 TO 40 

1640 |F (NtCi) OF I LltsOF 1LI'/ 2 » 

1660 FIUOsF |LO*OT U 0 
1660 Cjl) TO SO 
1670 40 Nr Os. TRIM . 

1680 OF l LD = r>F I LP/ • 

1690 f n.osf ilo-oi an 

3700 SO C0NT1NUI 
1710 • 

1720 PRINT 6000.MIT1R.F1LO 

17.10 6000 FORMAT!" #**LKK0K**» MAX N0MI>1 R OF ITERATIONS HAS tit t N EXCEEDED"// 
3740 6 SX«"NITtKs".l l.lX."f IL0=".F7.1) 

3 7 SO STOP 

.1760 60 IF (TILO .LT, FFC MAX ) OH TO 70 

3770 NSW=1 

1780 Fit OsFFCMAX 

1790 00 TO 10 

3800 70 FL01=r ILD/CUS 

3810 RETURN 

.1820 FND 

1830 

1840 

18S0 function phi (AT.VPMI ,vat> 

18 60 » 

3870 * PlIRPOSt 

)H80 * TO F | NO T HI NO LOAO FLUX C> 1 V I M THf NUMHER OF AMPERE -TURNS 

1890 * 

1900 DIMENSION VP>< 1 < l > « V AT ( 1 ) 

1910 * 

1420 PEI 1=0. 

3910 IF (AT.Lt.O.) RETURN 
1940 DO 10 1=1.9 

19S0 .J= I 

I960 to IE 1 A I .LE .VAT ( J*l n UO TO 20 

19 70 * 

V4B0 • AT '(As PE I N POUND! P - COF'PUTl NE n FIX 

1490 20 SLOPI = (U’HI ( j. 1 V-VFHl (J1 > /IVATIJ*! J-VATIJI 1 

4(100 PHI =VPHI ( J) .SLOPE » ! AT**VAT t J) 1 

hOIO RETURN 

4020 EMU 

40 10 

*,0«*0 SUt'WOUTINl L HOP I I ARM.VA . VtlAT .wC IHIE'. VE»ASI 1 . AllASt. 1 « I CHOP ) 

40S0 RIAL 1 ARM, 1 A. IP. IRK . IP.’ . IRK.' 

41)60 IF ttCElOP.tO.2J (lO Tt> f.OO 

4070 T AU = V A / VO AT 
4 OHO l A = AOS I I ARM) *APASl 1 
4090 VMM =VPA1 *VHAH 1 

4 100 IP=1A*41*. 

4 l 10 l R R = • 2 • I E’ 

4 l 21' Fs 2000. -8000. • ( TAU-.S) 

4110 | P2 = I P« t •’ 

4l40 1 RR2= I RRX I RR 

4 ISO PR 7= l .ot -06»E « ( !)>,»♦ 1RR2) 

4 160 PR 4 = »0 7f -06«E »V"T • VO I 
4170 PSh=S. 

4 1 «(' Pl>4= 10,1 • ( I )’♦ 1 RR » 
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<*190 IF (|A 9 M , U T. 0.1 GO TO ?0o 
<*200 Pkl=.5F-06*r « (VHT*»26*IP1**2 
<*210 PK3=.5E-06»F« ( Vtil ♦ .<*2* IkR 1 **2 

<*220 P0t = IA«TAi.p 1 .25f-06»F*<VBT*lP*.26*IP2) »10.»TAU 
<*230 PU3=0. 

<*2<*0 PD3=IA»1.35»< l.-TAU) 

<*250 PDA = 0. 

<*260 C>0 TO *>00 

<*270 200 PKl=.5fc-Ob*F«(VPT*.26*IHK|**2 

<*280 PR3 = .5E-0fc*F* <VDT..<*2*IP) **2 
<*290 Pul=0. 

<*300 P03=2.»I AM l.-TAU) +2 .5t-06*F* ( VHT* I P* .<*2* 1 P2 ) ♦ 10.* (l.-TAU) 
<*310 Pl>3=0. 

<*320 P0A=IA»1.2b»l All 
<*330 500 PH2 = PH1 
<*3<*0 PR5 = PK<* 

<*350 PR6=PK<* 

<*360 PU2 = P01 

<*3 70 WCH0P=PR7*PP 1 ♦PR2*PR 3.PR<*-»PR5*PRo*PUl ♦P(.'2 + P()3 + Pl)3*PDA*PSB*P09 
<*380 WCHOP = WCHOP/ ( VBASE 1 *AOASE 1 1 

<*390 GO TO 1000 

<*<*00C USE SIMPItk FORMULA IF ICH0P=2 
<*<*10 600 CCP = 50./ ( VBA St 1* ABASE 1 ) 

<►<*20 HCP=1.<*/VBASE1 

<*<*30 ACP = 0.01* ABASE 1 /VBASl 1 

<*<*<*0 rtCHOPsACP* < I ARM) **2 ♦HCP» l ARM+CCP 

<*<*50 1000 RETURN 

<*<*60 ENU 

<*<*70 SUBROUTINE CORLOS ( WCLL .FLUX .FUASF l ♦ VPH I « VWCL .PBASF 1 1 

<><•80 DIMENSION VWCL(l) *VPHI (1) 

<*<*90 FLX=FLUX*FBASEl 

<*500 IFlFLX.Ll.VPHI (8) 1G0 TO 10 

<*510 WCLL=V*CL<8)/PBASE1 

<*520 GO TO 999 

<*530 10 00 851 1 = 1.9 

<*540 J=1 

<*550 851 IF (FLX.Lt .VPH I ( J* 1 ) ) GOTO 852 
<*560 852 DWCL = VWCL(J*1)-VWCL(J) 

<*570 DPHUVPHI ( J.l 1-VPH1 < J) 

<*580 WCL IsVkICL ( J) ♦ (FLX-VPHI ( J) ) *DWCL /DPH I 
<*590 990 RCLL = WtL 1/PBASF 1 
<*600 999 RETURN 
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END 


M 


